<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=text/html;charset=iso-8859-1 http-equiv=Content-Type>
<META content='"MSHTML 4.72.3110.7"' name=GENERATOR>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT color=#000000 size=2>Judy,</FONT></DIV>
<DIV><FONT color=#000000 size=2></FONT> </DIV>
<DIV><FONT size=2>This function will return both the creation date/time and the
modify date/time.</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>Joe O'Connell</FONT></DIV>
<DIV><FONT size=2><A
href="mailto:joconnell@indy.rr.com">joconnell@indy.rr.com</A></FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV> </DIV>
<DIV><FONT color=#000000 size=2>Public Function ReturnFileDates(ByVal
strFullPath As String,
_<BR>
ByRef dtmCreateDate As Date,
_<BR>
ByRef dtmModifyDate As Date) As Boolean<BR> Dim objFileSystem
As Object<BR> Dim varFileInfo As Variant<BR>
On Error Resume Next<BR> Set objFileSystem =
CreateObject("Scripting.FileSystemObject")<BR> Set
varFileInfo = objFileSystem.GetFile(strFullPath)<BR> If
Err.Number = 0 Then<BR>
ReturnFileDates = True<BR>
dtmModifyDate =
varFileInfo.DateLastModified<BR>
dtmCreateDate = varFileInfo.DateCreated<BR>
Else<BR> ReturnFileDates =
False<BR> End If<BR> Err.Clear<BR>End
Function<BR></FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000000 solid 2px; MARGIN-LEFT: 5px; PADDING-LEFT: 5px">
<DIV><FONT face=Arial size=2><B>-----Original Message-----</B><BR><B>From:
</B>Judy Johnson <<A
href="mailto:jjwrite@earthlink.net">jjwrite@earthlink.net</A>><BR><B>To:
</B>AccessD <<A
href="mailto:accessd@databaseadvisors.com">accessd@databaseadvisors.com</A>><BR><B>Date:
</B>Thursday, May 29, 2003 7:28 AM<BR><B>Subject: </B>[AccessD] XP - File
Date<BR><BR></DIV></FONT>
<P>
<DIV></DIV>
<DIV>Is there a way to obtain the last modified date on a text file and
display it in a message box? I have a process that must be run every month
but only after a file has been updated. We don't want the process to run
automatically, we want user intervention but want to make sure the file is
the latest one. We've gone to a Citrix server and the users no longer have
explorer capabilities (corporate decision).</DIV>
<DIV> </DIV>
<DIV>Thanks.</DIV>
<DIV> </DIV>
<DIV>Judy Johnson</DIV>
<DIV><A href="mailto:jjwrite@earthlink.net">jjwrite@earthlink.net</A></DIV>
<DIV>860-482-8651</DIV>
<DIV>860-309-2484 (cell)</DIV>
<DIV> </DIV>
<P></P></BLOCKQUOTE></BODY></HTML>