Как я столкнулся с потребностью узнать у конкретного файла дату его создания и модификации, что бы каждый раз не производить его замену на локальных машинах находящихся в сети.
Для решения данного вопроса я воспользовался статьей для docs.microsoft.com
Возвращает дату и время последнего изменения указанного файла или папки. Только для чтения.
Следующий код иллюстрирует использование свойства DateLastModified с файлом.
|
1 2 3 4 5 6 7 8 9 10 |
Sub ShowFileAccessInfo(filespec) Dim fs, f, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(filespec) s = UCase(filespec) & vbCrLf s = s & "Created: " & f.DateCreated & vbCrLf s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf s = s & "Last Modified: " & f.DateLastModified MsgBox s, 0, "File Access Info" End Sub |
Следующий код иллюстрирует использование свойства DateCreated с файлом.
|
1 2 3 4 5 6 7 |
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 |