ByVal UserName As String, _Mot de passe ByVal As String, _
ByVal LocalFileName As String, _
ByVal RemoteFileName As String) As Boolean
Dim FTP Comme Inet
Réglez FTP = New Inet
Avec FTP
.Protocole = icFTP
.RemoteHost = HostName
.UserName = UserName
.Mot de passe = Mot de passe
.Exécuter .URL, "Mettre " + LocalFileName + " " + RemoteFileName
Do While .StillExecuting
DoEvents
Boucle
UploadFile = (.ResponseCode = 0)
End With
Réglez FTP = Nothing