Name: String;
Свойство Name возвращает наименование файла.
Sub UserProc;
Var
Dir: IDirectoryInfo;
FileSInfo: IFileSystemInfo;
s: String;
Begin
Dir:=New DirectoryInfo.Attach("c:\New_folder");
If Dir.Exists And (Dir.GetFiles("*").Count<>0) Then
s:=Dir.GetFiles("*").Item(0).Name;
End If;
Dispose Dir;
End Sub UserProc;
После выполнения примера, если папка «New_folder» существует и в ней содержаться файлы, то в переменной «s» будет содержаться наименование первого файла.
См.также: