Client ftp

Soyez le premier à donner votre avis sur cette source.

Vue 9 754 fois - Téléchargée 1 681 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
Messages postés
169
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
27 février 2009
1
Génial à vous deux, le truc pour virer le message 429... je commençais à me tirer les cheveux.
Messages postés
4
Date d'inscription
samedi 17 juillet 2004
Statut
Membre
Dernière intervention
28 janvier 2005

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
Messages postés
4
Date d'inscription
samedi 17 juillet 2004
Statut
Membre
Dernière intervention
28 janvier 2005

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
Messages postés
19
Date d'inscription
vendredi 24 mai 2002
Statut
Membre
Dernière intervention
1 novembre 2004

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
Messages postés
22
Date d'inscription
mardi 30 septembre 2003
Statut
Membre
Dernière intervention
17 mai 2006

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.
Afficher les 27 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.