GetParent(Path: String): IDirectoryInfo;
Path - каталог, информацию о родительском каталоге которого, необходимо получить.
Метод GetParent возвращает информацию о родительском каталоге указанного каталога.
Sub UserProc(sPath: String);
Var
Culture: ICultureInfo;
ParentDir: IDirectoryInfo;
d: DateTime;
Begin
If Directory.Exists(sPath) Then
Culture := CultureInfo.Current;
ParentDir := Directory.GetParent(sPath);
d := ParentDir.CreationTime;
Debug.WriteLine("Дата и время создания родительского каталога: " +
Culture.FormatLongDate(d) + Culture.FormatTime(d));
End If;
End Sub UserProc;
При выполнении примера осуществляется проверка наличия в файловой системе каталога, указанного в параметре «sPath». Если каталог существует, то в консоль среды разработки будет выведена дата и время создания его родительского каталога.
См.также: