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 "Закончили пролистывание файлов!"
Вернуться
