How to check timestamp of a text file using VBA

vba excel timestamp excel-2003
MrB picture MrB · May 30, 2012 · Viewed 12k times · Source

I'm trying to write a code in Excel 2003 VBA (Windows XP) to find out if outside TXT file has different timestamp, so I can 'import' it if it changed.

Is there any function in VBA that can save me?

Answer

Siddharth Rout picture Siddharth Rout · May 30, 2012

I think you want the modified date. If yes, then see this

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

The format of the date and time displayed is based on the locale settings of your system.

Edit

Using 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

Related questions

Is there a way to crack the password on an Excel VBA Project?

I've been asked to update some Excel 2003 macros, but the VBA projects are password protected, and it seems there's a lack of documentation... no-one knows the passwords. Is there a way of removing or cracking the password on a VBA …

Read More
How do I declare a global variable in VBA?

I wrote the following code: Function find_results_idle() Public iRaw As Integer Public iColumn As Integer iRaw = 1 iColumn = 1 And I get the error message: "invalid attribute in Sub or Function" Do you know what I did wrong? I tried …

Read More
How to use Regular Expressions (Regex) in Microsoft Excel both in-cell and loops

How can I use regular expressions in Excel and take advantage of Excel's powerful grid-like setup for data manipulation? In-cell function to return a matched pattern or replaced value in a string. Sub to loop through a column of data …

Read More