Сообщество Чайников

Вопрос

Есть такая функция — FileDateTime(PathName As String). В справке написано, что она возвращает метку времени и даты создания файла.

Я хочу, что бы она возвращала метку времени и даты создания также и каталога. Под W98, она возвращает мне эту метку. А под W2K, эта же функция возвращает дату и время модификации (а не создания) каталога.

Например, есть каталог 1. Его дата создания 01.01.2001 г. В этом каталоге есть файл 1.txt. И если я этот файл изменю 02.01.2001 г., то время модификации каталога будет 02.01.2001, а время создания по прежнему 01.01.2001 г.

Каким способом возможно вытянуть время и дату создания каталога, и чтобы этот способ работал и в W98, и в W2K?

Ответ

Не знаю как насчет времени, а дату создания папки можно вытащить с помощью FileSystemObject.

dim objfso as FileSystemObject
dim objFol as folder
dim d as Date
set objfso=createobject("Scripting.FileSystemObject")
Set objFol=objfso.GetFolder("Полный путь папки")
d=cDate(objFol.DateCreated)

Николай