... = INTERNETCONNECT( hInternet, DSITE,0, DUSER, DPASS, INTERNET_SERVICE_FTP, 0,0 ) IF HCON1 = 0 MSGINFO("ERREUR Création CONNEXION FTP ... Abandon transmission ") RETURN .F. ENDIF FOR I = 1 TO LEN(TFIC) DFICL := CurDir() + "\SORTANT\" + ALLTRIM(TFIC[I]) // Fichier local DFICR := ALLTRIM(DDIR) + ...