Wie um zu überprüfen, Zeitstempel einer text-Datei mit VBA

Bin ich zu schreiben versucht, einen code in Excel 2003 VBA (Windows XP), um herauszufinden, ob außerhalb TXT-Datei unterschiedliche Zeitstempel, so kann ich 'importieren', wenn Sie sich geändert hat.

Gibt es eine Funktion in VBA, die können mich retten?

  • Yup, gibt es 🙂 BTW, die Zeitstempel sind reden wir? ERSTELLUNGSDATUM oder änderungsdatum?
InformationsquelleAutor MrB | 2012-05-30
  1. 11

    Ich denke, Sie wollen das Datum der änderung. Wenn ja, dann finden Sie diese

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

    Das format von Datum und Uhrzeit angezeigt wird, basierend auf der locale-Einstellungen Ihres Systems.

    Bearbeiten

    Mit 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
    • Ja, das ist die Lösung, danke 🙂
    • bitte markieren Sie die Antwort als gelöst.
    InformationsquelleAutor Siddharth Rout
Schreibe einen Kommentar