Classe ftp sans api ni ocx

Soyez le premier à donner votre avis sur cette source.

Vue 12 636 fois - Téléchargée 1 418 fois

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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018

En fait tu as critiqué la source de "Multiprise" que j'avais déjà corrigée :
www.vbfrance.com/codes/ALTERNATIVE-FTP-SANS-API-SANS-OCX_20445.aspx
Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018

Je vais voir les points que tu as signalé, mon script a fonctionné jusqu'à l'année dernière, mais après je l'ai remplacé par un petit programme DotNet car la politique de sécurité du site FTP que j'utilisais n'acceptait plus cette version DOS.
Messages postés
1
Date d'inscription
lundi 21 avril 2008
Statut
Membre
Dernière intervention
21 avril 2008

Merci infiniment pour le module Sub CreerScriptFtp(), qui m'est très utile.

Néanmoins quelques erreurs doivent être corrigées pour qu'il tourne sans problème.

1°) Deux erreurs déjà signalées par un autre

à la ligne 1 il faut ajouter un espace après Open
> ScriptFTP "Open " & NomServeur & vbCrLf

à la ligne 2 il faut ajouter la commande user du ftp
> ScriptFTP ScriptFTP & "User " & NomUtilisateur & " " & MotDePasse

2°) Une autre erreur de dactylographie:
A la ligne 51 : un espace de trop après le joker
> ScriptFTP ScriptFTP & "mput " & "*.exe" & vbCrLf

3°) Concernant le message d'erreur 6 (dépassement de capacité) généré par les lignes 82 et 84 (ResultatCommande =), il se corrige en modifiant la déclaration Dim ResultatCommande As Byte (ligne 16) en remplaçant Byte par Long.

4°) Concernant le fichier créé #Canal:
- Lignes 70 (Print #Canal2, ScriptFTP), il faut remplacer #Canal2 par #Canal
- Ligne 72 (Close Canal2) il faut remplacer Canal2 par #Canal

Merci encore
Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018

Quelques liens :
- An FTP client library for .NET 2.0
www.codeproject.com/vb/net/FtpClient.asp
www.codeproject.com/useritems/FtpPublisher.asp : synchro FTP
www.codeproject.com/cs/internet/SimpleFTPDemo.asp
www.codeproject.com/useritems/FtpDotNet.asp
www.codeproject.com/cs/library/downloader.asp : asynch
www.codeproject.com/useritems/Downloader.asp
www.codeproject.com/csharp/FileDownloadManager.asp
www.codeproject.com/useritems/filedownloader.asp

- Multiple File Uploads, C# and NeoSwiff By DFU23
www.codeproject.com/useritems/neoswiff_upload.asp

- This article demonstrates how to post values to forms and
how to upload files directly from .NET with the WebRobot component
www.codeproject.com/useritems/multipartformfileupload.asp

- www.csharpfr.com/codes/NET-FREE-FTP_37948.aspx

- www.vbfrance.com/code.aspx?ID=35410
Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
7
C'est clair, Access c'est trop de la bouloche, même si parfois ya des bugs dignes de X-File, mais ya toujours une raison, encore faut-il la trouver. Les sauvegardes et compactages sont indispensables!
Afficher les 9 commentaires

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.