File.FindNextFile
FindNextFile (Выборка файлов) | |||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|
|
Функция получить следующий файл выборки, открытой ранее с помощью функции FindOpen. Если файлов в выборке больше нет, функция возвращает пустую строку. После выполнения функции, имя файла можно получить снова с помощью атрибута FileName.
Синтаксис
File.FindNextFile():<Имя следующего найденного файла выборки (STRING)>
Возвращаемое значение
Возвращается строка, имя следующего файла в выборке. Если выборка окончена, возвращается пустая строка.
Примеры
Function УдалитьФайлыРекурсивно(Путь) аФС:=File.Create(); аФС.FindOpen(Путь+"*.*"); While аФС.FindNextFile()<>"" Do Файл:=Trim(аФС.FileName); Имя:=Путь+Файл; If аФС.IsDirectory(Имя) Then УдалитьФайлыРекурсивно(Имя+"\"); Message("Удаляется папка "+Имя+"!","I"); аФС.RemoveDirectory(Имя); Else Message("Удаляется файл "+Имя+"!","I"); аФС.DeleteFile(Имя); EndIf; EndDo; EndFunction Путь:="Pictures\"; УдалитьФайлыРекурсивно(Путь);