Шаг 47 - Свойство DateCreated.

Возвращает дату и время создания указанной папки. Только для чтения.

object.DateCreated

Параметры
object - всегда объект File или Folder.

Пример
Следующий код иллюстрирует использование DateCreated свойства для файла:

Sub ShowFileInfo(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = "Created: " & f.DateCreated
    MsgBox s
End Sub
Hosted by uCoz