Get Date/Time Stamp from text file

  • Thread starter Thread starter Scott Strauss
  • Start date Start date
S

Scott Strauss

I built an Access application that has a macro to back up
key tables to text files. I also have a restore macro
that empties these tables then imports data from the back
up text files.

Is there a way to read the date stamp from a text file so
I can display it on a form when the restore macro imports
the file?

Thanks!
 
Hi Scott,

You can use the FileSystemObject object, e.g.

Dim FSO As Object 'Scripting.FileSystemObject
Dim F As Object 'Scripting.File
Dim strDateStamp As String

Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFile("D:\Folder\File.txt")

strDateStamp = F.DateLastModified

Set F = Nothing
Set FSO = Nothing
 
Thanks John. This works great.
-----Original Message-----
Hi Scott,

You can use the FileSystemObject object, e.g.

Dim FSO As Object 'Scripting.FileSystemObject
Dim F As Object 'Scripting.File
Dim strDateStamp As String

Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFile("D:\Folder\File.txt")

strDateStamp = F.DateLastModified

Set F = Nothing
Set FSO = Nothing


I built an Access application that has a macro to back up
key tables to text files. I also have a restore macro
that empties these tables then imports data from the back
up text files.

Is there a way to read the date stamp from a text file so
I can display it on a form when the restore macro imports
the file?

Thanks!
Click to expand...

--
John Nurick [Microsoft Access MVP]

Please respond in the newgroup and not by email.
.
Click to expand...
 
Wouldn't FileDateTime("D:\Folder\File.txt") do the same thing more
efficiently?
 
Thanks, Doug.

It would ... but the only function name I could remember was FileAttr(),
and I couldn't find the Access 2002 help topic on that - which might (or
might not) have directed me to FileDateTime() <g>.

Apart from that, FileSystemObject is sometimes useful because it offers
the Created and LastAccessed dates too.
 
Thanks for your help with this. It's exactly what I
needed.

Scott
-----Original Message-----
Hi Scott,

You can use the FileSystemObject object, e.g.

Dim FSO As Object 'Scripting.FileSystemObject
Dim F As Object 'Scripting.File
Dim strDateStamp As String

Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFile("D:\Folder\File.txt")

strDateStamp = F.DateLastModified

Set F = Nothing
Set FSO = Nothing


I built an Access application that has a macro to back up
key tables to text files. I also have a restore macro
that empties these tables then imports data from the back
up text files.

Is there a way to read the date stamp from a text file so
I can display it on a form when the restore macro imports
the file?

Thanks!
Click to expand...

--
John Nurick [Microsoft Access MVP]

Please respond in the newgroup and not by email.
.
Click to expand...
 
John Nurick said:
Apart from that, FileSystemObject is sometimes useful because it offers
the Created and LastAccessed dates too.
Click to expand...

Agreed, although I always use API calls when I can. However, as far as I can
tell, FSO is the only way to get those dates for Folders.
 
Agreed, although I always use API calls when I can. However, as far as I can
tell, FSO is the only way to get those dates for Folders.
Click to expand...

I just use the FSO; but in the directory entries where the timestamps
are stored, there's not much difference between a file and a subfolder.
And there must be an API function that can return folder timestamps, or
neither FSO nor Windows Explorer would be able to display them. So
(grabbing pipe and deerstalker) I infer that GetFileTime() must work for
both files and subfolders.
 
John Nurick said:
I just use the FSO; but in the directory entries where the timestamps
are stored, there's not much difference between a file and a subfolder.
And there must be an API function that can return folder timestamps, or
neither FSO nor Windows Explorer would be able to display them. So
(grabbing pipe and deerstalker) I infer that GetFileTime() must work for
both files and subfolders.
Click to expand...


You'd think so, wouldn't you? However, I seem to recall that I tried a few
years ago for something I was building, and couldn't get it to work.
 
John Nurick said:
You got me curious enough to download and modify the sample VB project
at http://blackbeltvb.com/free/SETFTIME.ZIP. This seems to work on both.

See also
http://vbnet.mvps.org/index.html?code/fileapi/folderdatetime.htm
Click to expand...

Thanks, John. I guarantee Randy didn't have that page back when I was
trying, as that's normally my first stopping place! I guess I didn't find
anything about FILE_FLAG_BACKUP_SEMANTICS when I was attempting to do this.
Of course, I don't need it anymore, but at least I'll know if I ever do
again.
 
Back
Top