DirectoryName: String;
Свойство DirectoryName возвращает полный путь и наименование папки, в которой содержится файл.
Sub Main;
Var
FileInf: IFileInfo;
s: String;
Begin
FileInf:=New FileInfo.Attach("c:\Work\1.txt");
If FileInf.Exists Then
s:=FileInf.DirectoryName;
End If;
Dispose FileInf;
End Sub Main;
После выполнения примера в переменной «s» будет содержаться полный путь и наименование папки, в которой находится файл «1.txt».
См. также: