Name: String;
The Name property returns file 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;
After executing the example, the "s" variable contains name of the first file if the New_folder directory exists and contains files.
See also: