| указатель_на_файл = переменная, хранящая указатель, полученный командой 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 "Закончили пролистывание файлов!" |