Je rencontre un probléme insoluble pour moi.
J'ai créer un soft qui me permet d'uploader des Images sur un FTP ... Jusqu'ici rien de bien compliqué ...
J'établi ma connection en mode PASSIF car mon provider m'as dit que c'est le mode de connection qui fonctionne toujours ...
Malgrés cela il semblerait que je parvienne a créer des repetoire mais pas a transférer des fichiers ...
S'il existe un petit génie du FTP je suis assez preneur car impossible de trouver une solution ... sinon celui de couper le FIREWALL sur le serveur FTP ce qui n'est pas dément ...
On a déja ouvert les 2 ports nécessaire mais rien n'y fait
HHHHHHHHHEEEEEEEEEEEEEELLLLLLLLLLLLPPPPPPPPPP
Dim hConnection As Long, hOpen As Long, sOrgPath As String
' open an internet connection
hOpen = InternetOpen("API-Guide sample program", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
' connect to the FTP server
hConnection = InternetConnect(hOpen, "xxxx.xxxx.fr", INTERNET_DEFAULT_FTP_PORT, "login", "password", INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)