Private Sub Form_Load()
Dim x
x = FileDateTime("C:\my documents\try.txt")
MsgBox x
End Sub
'Wayne