DirectoryName: String;
Свойство DirectoryName возвращает полный путь и наименование папки, в которой содержится файл.
Sub UserProc;
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 UserProc;
После выполнения примера в переменной «s» будет содержаться полный путь и наименование папки, в которой находится файл «1.txt».
См. также: