Bonjour à tous,
Voici la présentation de l'intégration de l'API wininet
(wininet.dll) dans notes pour, en partie, utiliser le FTP (bien que d'autre
protocole type http sont aussi disponible via cet API)
Une partie de ce code provient d'un site anglais une autre
partie provient de mon cerveau (du moins ce qu'il en reste après le passage
de lotus...)
La déclaration de l'API, sa DLL et ses fonctions (en
pièce jointe)
Cet exemple met en œuvre la connexion, l'envoi d'un fichier,
le changement de droit sur ce fichier et la fermeture de la connexion.
Dim moFTP As cFTP
Dim returnVal As Variant
Const FTP_TRANSFER_TYPE_ASCII = &H1
Const FTP_TRANSFER_TYPE_BINARY = &H0
Const INTERNET_FLAG_PASSIVE = &H8000000
Set moFTP = New cFTP
Print 'Connection FTP à : MONSERVEUR...'
returnval=moFTP.Connect('MONSERVEUR', 'monLogin', 'monPassword')
If (returnval = False) Then
Print 'ERREUR LORS DE LA CONNEXION A MONSERVEUR'
Exit Sub
End If
returnval=moFTP.PutFile?('c:\test.txt',
'/home/test.txt', FTP_TRANSFER_TYPE_BINARY)
If (returnval = False) Then
Print 'ERREUR LORS DE L´ENVOI DU FICHIER c:\test.txt'
returnval = moFTP.Disconnect()
Exit Sub
End If
returnval=moFTP.FtpCommandSend?('SITE
CHMOD 777 /home/test.txt')
If (returnval = False) Then
Print 'ERREUR LORS DU CHMOD 777'
returnval = moFTP.Disconnect()
Exit Sub
End If
returnval = moFTP.Disconnect()
Print 'Fichier envoyé, droits modifiés, connection fermée'
Et voila, l'utilisation est assez simple et facile à mettre
en œuvre.
Bonne continuation à tous !