Как получить дату создания папки?

[mhs2]

Как получить дату создания папки (Folder)?
Требуется получить именно дату создания, а не дату последнего изменения.

[alibek]

А как ты получаешь дату последнего изменения?

[mhs2]

А как ты получаешь дату последнего изменения?

вот так:
FileDateTime("E:\folder")
но эта функция выдает дату изменения а не создания.

[alibek]

Можешь через FSO, свойство DateCreated объекта Folder.
Можешь через WinAPI, GetFileTime.

[mhs2]

Спасибо!
сделал через FSO, работает:

Код: Выделить всё

    Dim fs, f As Object
    Dim s As String
   
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder("E:\folder")
    s = f.DateCreated
    MsgBox s

А можно пример с WinAPI, GetFileTime? или хотябы ссылочку на мануал.

[alibek]

http://msdn.microsoft.com/en-us/library/ms724320.aspx

[mhs2]

Спасибо за ссылку.
Но получается что WinAPI можно использовать только на С?
В VBA нельзя?

[alibek]

Можно.
Ищи в гугле примеры по "declare getfiletime".