J
Jay
I have gotten my code this far but not working.
Dim MyStamp as Date
MyStamp = FileDateTime(C:\Filecopy.txt)
If MyStamp = Date Then
'If Filecopy.txt modified date equals the current date.
MsgBox "File ok"
Goto End1
End If
MsgBox "File not ok"
End1:
Dim MyStamp as Date
MyStamp = FileDateTime(C:\Filecopy.txt)
If MyStamp = Date Then
'If Filecopy.txt modified date equals the current date.
MsgBox "File ok"
Goto End1
End If
MsgBox "File not ok"
End1: