(A) Sous Win95 et NT, vous devez utiliser un
fichier script SCR (script) avec FTP. Considérer l'exemple 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.
