1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
| 'lancer le transfert
internet_ok = InternetOpen("PutFtpFile", 1, "", "", 0)
If internet_ok = 0 Then
MsgBox "connection internet impossible"
Exit Function
End If
'ftp_ok = InternetConnect(internet_ok, adresse.Text, port.Text, login.Text, mdp_ftp.Text, 1, 0, 0)
ftp_ok = InternetConnect(internet_ok, adresse, port, login, mdp_ftp, 1, &H8000000, 0) 'mode passif
If ftp_ok = 0 Then
MsgBox "connection au site " & adresse.Text & " impossible"
Exit Function
End If
sélect_rép = FtpSetCurrentDirectory(ftp_ok, rep_cible)
If sélect_rép = 0 Then
MsgBox "impossible de trouver le répertoire " & rep_cible.Text
Exit Function
End If
'transférer le fichier
succès = FtpPutFile(ftp_ok, fichiers_rep, nomfich, &H1, 0) 'ascii
'succès = FtpPutFile(ftp_ok, fichiers_rep(mun), nomfich, &H2, 0) 'binaire
If succès Then
résult = résult & Chr(10) & nomfich & " a été transféré sur " & adresse
Else
résult = résult & Chr(10) & nomfich & " n'a pas pu être transféré"
End If
'fermer les pointeurs, ménage
InternetCloseHandle ftp_ok
InternetCloseHandle internet_ok |
