|
Для работы иногда полезно получить данные о
дате создания или последней коррекции файла. Для
этого можно использовать функцию
FileDateTime(ИмяФайла), например: Dim MyDateTime
As Date
MyDateTime = FileDateTime("D:\Calc.bas)
С помощью этой же функции можно определить
время создания каталога, но следует иметь в виду,
что имя каталога в данном случае не должно
заканчиваться на обратную косую черту:
MyDateTime = FileDateTime("D:\TMP\") ' имя
каталога задано неверно
MyDateTime = FileDateTime("D:\TMP") ' имя каталога задано
правильно
Но получить дату создания корневого каталога
(то есть диска) с использование FileDateTime нельзя.
Источник: http://www.relib.com/code.asp?id=377
|