Ребята подскажите как сделать:
Есть в папке количество файлов (например 30)
Нужно считать название(имя) каждого файла и записать
эти названия в .txt (поле каждого названия(имени)-переход строки)
Заранее всем благодарен!
Помогите новичку
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 14
• Страница 1 из 1
- SerJay
- Обычный пользователь
- Сообщения: 87
- Зарегистрирован: 06.05.2005 (Пт) 17:12
- Откуда: Казахстан
Помогите новичку
SerJay » 29.06.2005 (Ср) 10:34
- GSerg
- Шаман
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 29.06.2005 (Ср) 12:32
FSO писал(а):занести их в массив и циклом откинь расшырения right("имя файла", 4)
А что у файла может не быть расшырения, мы не учитываем? А что оно может быть не из трёх символов? А что после расшырения может идти финальная точка?
ArtZ писал(а):и плюс chr(10)+Chr(13)
А vbNewLine?
Автору.
Искать по форуму, ключевое слово Dir. Думаю, пару сотен ответов ты найдёшь.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
- SerJay
- Обычный пользователь
- Сообщения: 87
- Зарегистрирован: 06.05.2005 (Пт) 17:12
- Откуда: Казахстан
Помогите новичку
SerJay » 29.06.2005 (Ср) 13:03
РЕбята возможно я некорректно задал вопрос.
Разрешение у файлов одно-PDF.
Файлов около 5000.Мне просто нужны их имена,а писать
вручную в .TXT сами понимаете долго.
Попробую воспользоваться поиском.
Спасибо!
Разрешение у файлов одно-PDF.
Файлов около 5000.Мне просто нужны их имена,а писать
вручную в .TXT сами понимаете долго.
Попробую воспользоваться поиском.
Спасибо!
- Jenizix
- Географ
-
- Сообщения: 545
- Зарегистрирован: 20.04.2004 (Вт) 20:52
- Откуда: Москва
Jenizix » 29.06.2005 (Ср) 14:58
А принципиально на каком языке написать прогу? могу на С++ написать, т.к. VB компилятора под рукой нет...
Ушел в себя, вернусь не скоро...
Если вам нужно сделать прозрачной только форму, а контролы на ней нет, то вам сюда!!!
Если вам нужно сделать прозрачной только форму, а контролы на ней нет, то вам сюда!!!
- Sirik
- Perspicaz
-
- Сообщения: 2280
- Зарегистрирован: 19.02.2004 (Чт) 16:09
- Откуда: Бердичев, Украина
Sirik » 29.06.2005 (Ср) 15:10
- Код: Выделить всё
Dim strFileName As String
Text1.Text = ""
strFileName = Dir("*.PDF")
While strFileName <> ""
Text1.Text = Text1.Text & strFileName & vbCrLf
strFileName = Dir
Wend
код сгенирирован за 1 минуту
Состояний же любви — десять: любовный взгляд, привязанность в мыслях, рождение желания, бессонница, исхудание, отвращение к предметам восприятия, утрата стыда, безумие, потеря сознания и смерть — вот их признаки
- Sirik
- Perspicaz
-
- Сообщения: 2280
- Зарегистрирован: 19.02.2004 (Чт) 16:09
- Откуда: Бердичев, Украина
Sirik » 29.06.2005 (Ср) 16:25
а ты попробуй и отойди
конечно работает
конечно работает
Состояний же любви — десять: любовный взгляд, привязанность в мыслях, рождение желания, бессонница, исхудание, отвращение к предметам восприятия, утрата стыда, безумие, потеря сознания и смерть — вот их признаки
- SerJay
- Обычный пользователь
- Сообщения: 87
- Зарегистрирован: 06.05.2005 (Пт) 17:12
- Откуда: Казахстан
Помогите новичку
SerJay » 29.06.2005 (Ср) 18:33
Вот тоже нашёл в поиске:
Private Sub Form_Load()
Dim s As String
s = Dir$("C:\1\", vbDirectory + vbSystem + vbHidden)
Do While s <> ""
Text1.Text = Text1.Text & s & vbCrLf
s = Dir$
Loop
End Sub
То что нужно.
Всем спасибо за участие!
Private Sub Form_Load()
Dim s As String
s = Dir$("C:\1\", vbDirectory + vbSystem + vbHidden)
Do While s <> ""
Text1.Text = Text1.Text & s & vbCrLf
s = Dir$
Loop
End Sub
То что нужно.
Всем спасибо за участие!
- Kovu
- Постоялец
-
- Сообщения: 924
- Зарегистрирован: 29.04.2005 (Пт) 17:38
Kovu » 01.07.2005 (Пт) 8:07
1 писал(а):Извините,не могли бы помочь, никак не могу сделать кнопку в VB6 прозрачной дайте Плиз код
Ну ты можешь сделать кнопку с цветом , отличающимся от цвета формы и других контролов, а зактем применить SetLayeredWindowAttributes к форме
Если всё делать своими ручками, они скоро отвалятся !
- FSO
- Обычный пользователь
- Сообщения: 56
- Зарегистрирован: 17.04.2005 (Вс) 11:50
Re: Помогите новичку
FSO » 01.07.2005 (Пт) 13:23
А что у файла может не быть расшырения, мы не учитываем? А что оно может быть не из трёх символов?
Разрешение у файлов одно-PDF.
Хы... я телепат
)
Сообщений: 14
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот и гости: 10