Home
Home

---Soumis par Dev Ashish---

Utiliser FTP.

(Q)    Comment utiliser  FTP depuis Access?

(A)     Sous  Win95 et NT, vous devez utiliser un fichier script  SCR (script) avec FTP. Considérer l'exmple suivant:

'********************** Code Start *************************
Sub sFTP(stSCRFile As String)
'Usage:
'   call sFTP("C:\temp\test.scr")
'Exemple de fichier SCR pour  NT/Win95 FTP
'   lcd "c:\temp"
'   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 *************************

Il faut fournir  ftp://ftp.exe/   comme nom de programme, non  CMD.EXE (sous  NT) qui retourne Environ$("Comspec") . Si vous désirez cacher la fenêtre DOS, utiliser vbHide au lieu de vbNormalFocus.

Une alternative consiste à utiliser l'API WinInet directement, si vous avez installé Internet Explorer 4.x, ou plus récent. Un exemple est disponible sous  InetTransferLib.