Показать сообщение отдельно
Старый 03.09.2005, 18:59   #10
alcosholik
 
Сообщений: n/a
NextFile$ (указатель_на_файл)

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

Описание
Эта команда возвращает следующий файл или папку из открытой в данный момент директории (используйте ReadDir, чтобы открыть необходимую директорию для считывания). Т.е. она возвращает строку, содержащую имя папки или файла с расширением. Используйте FileType, чтобы определить папка это или файл. Вы не можете «двигаться» в обратную сторону внутри директории, только вперед. Можно распределить содержимое директории по элементам массива для отображения и т.п.

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