Показать сообщение отдельно
Старый 03.09.2005, 18:58   #9
alcosholik
 
Сообщений: n/a
CloseDir указатель_на_файл

Параметры
указатель_на_файл = переменная, хранящая указатель, полученный командой ReadDir

Описание
Как только вы закончили работать с NextFile$ в ранее открытой командой ReadDir директории, используйте эту команду, чтобы закрыть ее. Это хороший стиль программирования!

См. также: ReadDir, NextFile$

Пример
; 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 "Закончили пролистывание файлов!"
 
Ответить с цитированием