Как проверить временную метку текстового файла с помощью VBA

Я пытаюсь написать код в Excel 2003 VBA (Windows XP), чтобы выяснить, не имеет ли другой TXT-файл другую временную метку, поэтому я могу "импортировать" это если оно изменилось.

Есть ли в VBA функция, которая может меня спасти?

 Siddharth Rout30 мая 2012 г., 22:08
Да, есть :) Кстати, о какой временной отметке мы говорим? Дата создания или Дата изменения?

Ответы на вопрос(1)

Решение Вопроса

ты хочешь изменить дату. Если да, то посмотрите это

Debug.Print FileDateTime("C:\Sample.txt")

Формат отображаемой даты и времени зависит от региональных настроек вашей системы.

Редактироват

С помощьюFileSystemObject

Option Explicit

Sub Sample()
    Dim oFS As Object
    Dim sFile As String

    sFile = "C:\MyFile.txt"

    Set oFS = CreateObject("Scripting.FileSystemObject")

    '~~> Created Date
    Debug.Print "Created Date : "; oFS.GetFile(sFile).DateCreated

    '~~> Modified Date
    Debug.Print "Modified Date : "; oFS.GetFile(sFile).Datelastmodified

    Set oFS = Nothing
End Sub
 MrB30 мая 2012 г., 22:41
Да, это решение, спасибо
 Reafidy31 мая 2012 г., 01:58
@ Боян, пометьте ответ как решенный.

Ваш ответ на вопрос