DirectoryEntryDate

Синтаксис

Function DirectoryEntryDate(ByVal HandleDirectory As Integer, ByVal flag As Long) As String

Описание

Возвращает время создания,последнего доступа и последнего редактирования файла

Параметры

HandleDirectory - хендл поиска

flag - флаг , может быть:

1 - Время создания (на Linux возвращает неопределенное значение)
2 - Время последнего доступа
3 - Время последнего редактирования

Платформы

Windows , Linux

Пример

#Include "window9.bi"
#Ifdef __FB_WIN32__
Dim As String Directory = "C:\"
#Else
Dim As String Directory = "/"
#EndIf
Var Dir_=ExamineDirectory(Directory, "*.*")
Do
  Print DirectoryEntryName(Dir_) & " "& DirectoryEntryDate(Dir_,3)
Loop While NextDirectoryEntry(Dir_)
FinishDirectory(Dir_)
Sleep

Created with the Personal Edition of HelpNDoc: Produce Kindle eBooks easily