| Вопрос: Узнать имена всех файлов в папке | Добавлено: 02.06.06 11:12 |
Автор вопроса:  Trusishka | ICQ: 229751913 |
|
VB6
есть ли у кого простенький кусочек кода, все что я нашел очень сложное и требует Microsoft Scripting Runtime , к которому у меня почему-то доступ закрыт. |
| Ответы | Всего ответов: 25 |
|
Номер ответа: 1 Автор ответа:  HOOLIGAN Вопросов: 0 Ответов: 1066 |
Профиль | | #1 | Добавлено: 02.06.06 13:15 |
| Поищи примеры (например в гугле) с использованиемvb-функции Dir | ||
|
Номер ответа: 2 Автор ответа: Trusishka ICQ: 229751913 Вопросов: 36 Ответов: 48 |
Профиль | | #2 | Добавлено: 02.06.06 15:40 |
| нашел, спасибо | ||
|
Номер ответа: 3 Автор ответа: Tony CorleoneICQ: 312123 Вопросов: 11 Ответов: 19 |
Web-сайт: Профиль | | #3 | Добавлено: 02.06.06 22:07 |
| Можешь показать? | ||
|
Номер ответа: 4 Автор ответа: HOOLIGANВопросов: 0 Ответов: 1066 |
Профиль | | #4 | Добавлено: 02.06.06 22:32 |
|
Dim fname As String
fname = Dir$("C:\" 
Do Until fname = "" Debug.Print fname fname = Dir$ Loop |
||
|
Номер ответа: 5 Автор ответа: Tony CorleoneICQ: 312123 Вопросов: 11 Ответов: 19 |
Web-сайт: Профиль | | #5 | Добавлено: 02.06.06 22:54 |
| Занятная фишка. Спасибо. | ||
|
Номер ответа: 6 Автор ответа: Денис Вопросов: 1 Ответов: 5 |
Профиль | | #6 | Добавлено: 03.06.06 02:15 |
| а почему если на лабел.какпшин выводиш она ток один файл показывает который первый в директории , как сделать чтоб на все??? | ||
|
Номер ответа: 7 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #7 | Добавлено: 03.06.06 06:39 |
| Уж сколько раз твердили миру... Хотяб рекурсия, читайте книжки. | ||
|
Номер ответа: 8 Автор ответа: EROSВопросов: 58 Ответов: 4255  |
Профиль | | #8 | Добавлено: 03.06.06 11:24 |
|
лабел.какпшин
много думал...  ))
потом плакалЪ... |
||
|
Номер ответа: 9 Автор ответа: Nj ICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #9 | Добавлено: 03.06.06 20:26 |
|
а почему если на лабел.какпшин выводиш она ток один файл показывает который первый в директории , как сделать чтоб на все???
..э Я тоже хотел бы очень знать как - люди подскажите... книжки не у всех есть с МСДНкой
|
||
|
Номер ответа: 10 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #10 | Добавлено: 04.06.06 01:37 |
|
мсднка доступна в онлайне... так что ненадо...
Dim fname As String
fname = Dir$("C:\"
Do Until fname = "" Label1 = Label1 & fname & vbCrLf fname = Dir$ Loop Интересно, высоту лабела хоть додумайтесь сделать больше чем в одну строчку
|
||
|
Номер ответа: 11 Автор ответа: EROSВопросов: 58 Ответов: 4255 |
Профиль | | #11 | Добавлено: 04.06.06 02:41 |
|
Интересно, высоту лабела хоть додумайтесь сделать больше чем в одну строчку
HACKER, а ты говорил, что читаешь топики .НЕТ-чиков лежа под столом.. Однако Ваши топики тоже доставляют массу радостных минут! )))))
|
||
|
Номер ответа: 12 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #12 | Добавлено: 04.06.06 17:51 |
| и к чему это сказано? :/ я понимаю, если курить не сигареты, любой топик смешной... но всё же... | ||
|
Номер ответа: 13 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #13 | Добавлено: 04.06.06 22:00 |
|
2 HACKER
1. Спасибо тебе за код. 2. Интересно, высоту лабела хоть додумайтесь сделать больше чем в одну строчку - спустись с Небес...
|
||
|
Номер ответа: 14 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #14 | Добавлено: 05.06.06 18:09 |
|
ты тоже курящий, не сигареты?
Хотя я и обкуренный бы додумался до Label1 = Label1 & fname & vbCrLf так что к небесам это не относится... |
||
|
Номер ответа: 15 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #15 | Добавлено: 05.06.06 18:11 |
|
Интересно, высоту лабела хоть додумайтесь сделать больше чем в одну строчку
ок... лана... уговорили перед Do Label1.Height = 500 )))))))))))))))))))))))))
|
||