Вывести список всех имеющихся файлов в директории

Нужно использовать контрол FileListBox
code: #basic
File1.Path = "c:\windows" ' это указывает в какой папке смотреть
File1.Pattern = "*.*" ' это указывает расширение отображаемых файлов
 
'показывать если True файлы с атрибутами - нормальные, архивные, скрытые, системные, только для чтения
File1.Archive = True
File1.Hidden = True
File1.ReadOnly = True
File1.Normal = True
File1.System = True
File1.Refresh ' обновляет содержимое списка, вдруг в директоии создадутся новый файлы. Это можно в таймер вставить
 
File1.Path = "c:\" 'все файлы с корневого диска с
Open "c:\123.txt" For Output As #1 'откроем файл 123.txt на 1 канале
For i = 0 To File1.ListCount 'цикл прогона всех элементов списка от 0 до последнего
Print #1, File1.List(i) 'печатаем в 1 канал название текущего элемента списка
Next i ' no comentzz
Close #1 ' закрываем 1 канал

автор: Pricolist

Поделиться:

Похожие статьи: