Preserving File Date With Ftp

I am using the shell command to call dos ftp in order to download and upload files that I then import into my db (Access 2002). This is working great. I would like to check the file date before I import the file data into my db so that I do not import duplicate records. Unfortunately, the file date is modified when I grab a file. Is there a means to preserve the file date using the dos ftp utility? If not, is there some other way to do this in code so I can automate the procedure? The code I am currently using is:


'******* Code Start *****
'This code was originally written by Dev Ashish
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
'
'Code Courtesy of
'Dev Ashish
'
Public Sub sFTP(stSCRFile As String)
'Usage Example:
' call sFTP("C: emp est.scr")
'Sample SCR File for NT/Win95 FTP
' lcd "c: emp"
' open ftp.someserver.com
' anonymous
' dash10@hotmail.com
' cd public
' binary
' get dead.letter dead.letter
' bye
Dim stSysDir As String
stSysDir = Environ$("COMSPEC")
stSysDir = Left$(stSysDir, Len(stSysDir) - Len(Dir(stSysDir)))
Call Shell(stSysDir & "ftp.exe -s:" & stSCRFile, vbNormalFocus)
End Sub
'********** Code End *******

Thank you for the assistance.

-Kevin