IFileSystemInfo.CreationTime

Синтаксис

CreationTime: DateTime;

Описание

Свойство CreationTime определяет дату и время создания файла.

Пример

Sub UserProc;
Var
    FileSInfo: IFileSystemInfo;
Begin
    FileSInfo := New FileInfo.Attach("c:\1.txt");
    If FileSInfo.Exists Then
        Debug.WriteLine("Дата создания: " + FileSInfo.CreationTime.ToString);
        Debug.WriteLine("Дата последнего открытия: " + FileSInfo.LastAccessTime.ToString);
        FileSInfo.LastWriteTime := DateTime.Now;
    End If;
    Dispose FileSInfo;
End Sub UserProc;

При выполнении примера будет осуществлена проверка наличия файла «1.txt». Если файл существует, то в консоль среды разработки будет выведена дата и время его создания и последнего открытия. Также для файла в качестве даты последнего изменения будет установлена текущая дата.

См.также:

IFileSystemInfo