| Вопрос: Файлы | Добавлено: 20.03.03 21:41 |
Автор вопроса:  &&&&M
|
|
Подскажите пожалуйста как получить список всех фаелов в определённой папке? А то чтото я не догоняю |
...
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  serWAR ICQ: 304739736 Вопросов: 21 Ответов: 38 |
Web-сайт: Профиль | | #1 | Добавлено: 20.03.03 22:35 |
|
‘ Создай на форме FileListBox и оставь значение свойства Pattern (Маска) в *.* ‘ Да кстати создай папку FILES Private Sub Form_Load() Dim ima_file(), vivod As String Dim kolwo As Integer ' Назначение каталога File1.Path = App.Path & "\FILES\" ' Определения кол-ва файлов kolwo = File1.ListCount
' Создание массива имен файлов статей и заполнение его ReDim ima_file(kolwo - 1) For i = 0 To (kolwo - 1) ima_file(i) = File1.List(i) vivod = vivod & vbCrLf & ima_file(i) Next MsgBox "В папке FILES такие файлы:" & vbCrLf & vivod End End Sub |
||
Страница: 1 |