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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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 канал

Похожие записи/страницы: