Classe ftp sans api ni ocx

Télécharger le projet
Commenter

Description

Classe FTP sans API ni OCX, basée sur le code source :
www.vbfrance.com/code.aspx?id=20445 : Une alternative FTP sans API et sans OCX

Amélioration : transfert d'une liste de fichiers, en indiquant aussi le répertoire de destination, et attente de la fin de transfert.
Des guillemets sont ajoutés si les chemins contiennent des espaces (nom long).
Pour tester la démo, n'oubliez pas d'indiquer votre Login et Mot de passe perso.
Si votre pare-feu est activé, une confirmation vous sera demandé au préalable.
Utilisez FileZilla pour tester le résultat :
www.01net.com/telecharger/windows/Internet/ftp/fiches/17966.html

Source / Exemple : 


Dim oFTP As clsFTP
Set oFTP = New clsFTP
oFTP.m_sServeur = "ftpperso.free.fr"
oFTP.m_sCompteUtilisateur = "MonLogin"
oFTP.m_sMotDePasse = "MonMotDePasse"
oFTP.Init
'oFTP.m_bCacherFenDOS = True

Dim sSrc1$, sDestFTP1$, sSrc2$, sDestFTP2$
sSrc1 = "C:\Tmp\Test 1.txt"
sDestFTP1 = "Test 1.txt"
sSrc2 = "C:\Tmp\Test2.txt"
sDestFTP2 = "divers/Test2.txt"

If False = oFTP.bAjouterFichier(sSrc1, sDestFTP1) Then Exit Sub
If False = oFTP.bAjouterFichier(sSrc2, sDestFTP2) Then Exit Sub
If False = oFTP.bTelecharger() Then Exit Sub
If False = bConserverFichiers Then oFTP.SupprimerFichiers

MsgBox "Transfert FTP effectué avec succès", vbInformation

Conclusion :


Attention, en cas d'erreur (connexion FTP déjà ouverte, login ou mot de passe incorrect, ...), le transfert ne se fait pas et on ne détecte pas d'erreur.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Patrice99)