Показать сообщение отдельно
Старый 03.09.2005, 18:57   #8
alcosholik
 
Сообщений: n/a
ReadDir (директория)

Параметры
директория = полный путь и имя директории/каталога для открытия

Описание
В операциях с файлами вам часто потребуется просматривать всю директорию/каталог и отыскивать файлы или папки, не зная их имен. Эта команда открывает заданный каталог для проделывания операций, описанных выше. Возвращает указатель на файл, который используется другими командами для выполнения других операций над файлами. Нужно использовать NextFile$, чтобы переходить к следующему объекту (используйте FileType, чтобы узнать файл это или папка). Запомните, хороший стиль программирования требует закрытия (CloseDir) открытой директории после завершения работы с ней. Пример должен помочь разобраться.

Пример
; ReadDir/NextFile$/CloseDir – пример использования

; Определить, с какой директории начать
folder$="C:" 

; Открыть директорию и сохранить указатель в myDir
myDir=ReadDir(folder$) 

; Будем повторять бесконечно, пока не кончатся файлы/папки в заданной директории
Repeat 
; Назначить следующий объект в директории переменной file$
file$=NextFile$(myDir) 

; Если такового нет, выйти из цикла
If file$="" Then Exit 

; Использовать FileType, чтобы определить является объект папкой или файлом, и вывести результаты
If FileType(folder$+""+file$) = 2 Then 
Print "Folder:" + file$ 
Else 
Print "File:" + file$ 
End If 
Forever 

; Правильно закрыть директорию 
CloseDir myDir 

; Вот и все! 
Print "Закончили пролистывание файлов!"
 
Ответить с цитированием