Client ftp

5/5 (27 avis)

Vue 10 293 fois - Téléchargée 1 729 fois

Description

Bon, je tiens à le dire tout de suite, CE PROG N'EST PAS DE MOI !

Il s'agit d'un client FTP comme jamais j'en ai vu.

Le code est full commenté, simple à comprendre, à utiliser et à modifier. Si je le poste ici, c'est parcequ'il n'y a pas d'equivalent sur ce site. Ce programme permet aussi aux petits nouveaux en VB de comprendre pas mal de choses sur les méthodes de transferts de fichiers via FTP.

J'ai trouvé quelques bugs (pas bien méchants), mais le reste est tip-top ! Et pour ne rien gacher, l'interface est pas mal.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
VBbigineure Messages postés 169 Date d'inscription vendredi 27 septembre 2002 Statut Membre Dernière intervention 27 février 2009 1
7 oct. 2010 à 12:46
Génial à vous deux, le truc pour virer le message 429... je commençais à me tirer les cheveux.
LeFoUvErT Messages postés 4 Date d'inscription samedi 17 juillet 2004 Statut Membre Dernière intervention 28 janvier 2005
22 nov. 2004 à 21:24
petit ajout... pour que le reg s execute bien il fait rajouter REGEDIT4 au debut
exemple

REGEDIT4
[HKEY_CLASSES_ROOT\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d]
@="mlrljgrlhltlngjlthrligklpkrhllglqlrk"

pasqeu sinon windaube fait un caprice et il dit k il faut la rentrer a la main (ca va pas la tete!! faire qq chose a la main moi???? j ai un ordi.. c est pour qu il fasse a ma place!!!)

sinon merci ca marche nikel

LeFoUvErT
LeFoUvErT Messages postés 4 Date d'inscription samedi 17 juillet 2004 Statut Membre Dernière intervention 28 janvier 2005
22 nov. 2004 à 19:32
LOVE ddcreateur!!!!
je me doutais bien que le pb "erreur 429" venais du fait que les machine n avait pas d environement de devellopement (ma machine ca marche.. celle des parent non , celle du lycee (je suis en info donc forcement y as visual studio) ca marche... elle du cdi ca marche pas ect ect ect...)
mais par contre je n avais aucune idee de comment resoudre ce pb....
maintenant que tu l as regler je n ai plus qu une chose a dire...
LOOOOOOOOOOOOOOOVE ddcreateur!!!!

@++ tout le monde
zinkieter pas.. j ai toujrs pas mit de source, je lit je lit bcp de source... mais un jour viendra ou j apporterai ma petite pierre a l edifice (si je n ai pas trop honte de mon code....)

LeFoUvErT
ddcreateur Messages postés 19 Date d'inscription vendredi 24 mai 2002 Statut Membre Dernière intervention 1 novembre 2004
13 févr. 2004 à 09:26
Salut tout le monde,

pour répondre au message de Franck339 au sujet de "l'erreur d'execution 429 du composant activeX quine peut creer l'objet...."

effectivement le programme marche bien sur le pc des développeurs, mais à l'exportation vers d'autres pc ( en gros tout ceux qui n'on pas d'environnement de developpement pro...;-) ) ben ils ont le même message d'erreur.

La solution est de créer un fichier texte et de copier ce code à l'interieur :

[HKEY_CLASSES_ROOT\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d]
@="mlrljgrlhltlngjlthrligklpkrhllglqlrk"

ensuite renomme ton fichier texte en " install.reg " et execute le , normalement tu devrais pouvoir utiliser le programmme FTP sans problème !!

Voila @+ tout le monde

Damien
coplanacu Messages postés 22 Date d'inscription mardi 30 septembre 2003 Statut Membre Dernière intervention 17 mai 2006
25 déc. 2003 à 15:54
Ce programme est très bien écrit et super documenté, merci de l'avoir signalé. Il utilise une variante de l'excellente classe FtpClient d'Oleg Gdalevich, trouvée sur www.vbip.com.
Mais chez moi, la fonction uploadfile ne marchait pas. En effet on y trouve les lignes suivantes :

Public Function UploadFile(strLocalFileName As String, strRemoteFileName As String, vTransferMode As FtpTransferModes, Optional lStartPoint As Long) As Boolean

(...)
If Not IsMissing(lStartPoint) Then


If Not ProcessRESTCommand(lStartPoint) Then
UploadFile = False
Exit Function
End If
End If


le problème c'est que la fonction IsMissing ne fonctionne que sur les variables de type Variant (dixit msdn de vb6) alors que lStartPoint est de type Long. Du coup un ProcessRESTCommand est envoyé même quand il ne s'agit pas d'une reprise de Upload. Et ça coince.

J'ai remplacé
If Not IsMissing ..
par
If lStartPoint > 0 Then

et ça marche.

Mais c'est du bricolage. Quelqu'un a-t-il eu le même problème?

Par ailleurs je suis en train d'utiliser ce code pour me faire un activeX à plaer sur une plage HTML. Le but est de créer un mini client FTP pour mettre à jour un site à distance (avec du php côté serveur). L'utilisateur choisit une page web enregistrée sur son pc pour la transférer sur le site à mettre à jour. C'est très simple à faire en html pur (<INPUT type="file") sauf si on veut sélectionner plusieurs fichiers à la fois et sauf surtout si on veut envoyer à la fois le ficher essai.html et son dossier essai_fichiers associé qui contient les images, etc.
J'ai trouvé des ActiveX qui font ça, mais ils sont payants.
Alors autant le faire soi-même ;-)
Promis, dès que j'ai terminé je le place ici.

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.