|
Thanks, youngqd. I really appreciate it.
I found a sample which might be the solution.
Public Sub ExportFTP()
Dim sSCR As String,
sDir As String, sExe As String
sSCR = CurrentProject.Path & "\AccessFTP.scr"
sSCR = GetShortFileName(sSCR)
sDir = Environ$("COMSPEC")
sDir = Left$(sDir, Len(sDir) - Len(Dir(sDir)))
sExe = sDir & "ftp.exe -s:" & sSCR
Shell sExe, vbMaximizedFocus
Somehow, when I run the codes, I got an error "can't find project or library" and highlighted on "Environ$". Don't know why? Any suggestion..........
|