Determining create date of txt file before loading 2

[dbero]

I am importing a txt file from a vbform. However, sometimes the file creation is delayed so I want to check the DOS modified/created date prior to performing the append query. Can you please provide some insight as to how to determine a txt file's modified/created date from vba?

Thanks,

 

[Remou]

Hi
I found this sample in an old MSDN library:

Dim MyStamp
' Assume TESTFILE was last modified on February 12, 1993 at 4:35:47 PM.
' Assume English/U.S. locale settings.
MyStamp = FileDateTime("TESTFILE")   ' Returns "2/12/93 4:35:47 PM".

 

[Tranman]

dbero,
The 3 file dates (Accessed/Created/Modified) are available in the File object in the Scripting Filesystemobject.

Here's a snippet:

Private Sub FileDate()
Dim acDate As Date
Dim crdate As Date
Dim modate As Date
Dim fso As New FileSystemObject
Dim fil As File

Set fil = fso.GetFile("C:\ASCFILE.TXT")

acDate = fil.DateLastAccessed
crdate = fil.DateCreated
modate = fil.DateLastModified
End Sub

You'll need a reference in your project to the Scripting Runtime.

Tranman


"Adam was not alone in the Garden of Eden, however,...much is due to Eve, the first woman, and Satan, the first consultant." Mark Twain