Cliens ftp...

Soyez le premier à donner votre avis sur cette source.

Vue 9 983 fois - Téléchargée 1 741 fois

Description

Un client ftp qui vous permet de vous connecter à des adresse ftp et faire des "DIR" dessus.... Wahou lol ...

Source / Exemple :


Private Sub Form_Load()
txtURL = ""
txtDonnées = ""

Me.Show
txtURL.SetFocus
End Sub

Private Sub cmdConnecter_click()
On Error GoTo erreur

netFTP.execute txtURL.Text, "DIR"
Exit Sub

erreur:
txtDonnées.Text = "Erreur: " & Err.Description
End Sub

Private Sub txtURL_Validate(cancel As Boolean)
If Trim$(txtURL.Text) = "" Or _
InStr(txtURL.Text, ".") = 0 Then

MsgBox ("indiquez l'adresse svp !"), _
vbOKOnly + vbExclamation, "FTP"
cancel = True
End If
End Sub

Private Sub cmdQuitter_click()
netFTP.cancel
Unload Me
End Sub

Private Sub netFTP_StateChanged(ByVal state As Integer)
Dim vntDonnées As Variant
Dim strDonnées As String

Select Case state
Case icError
txtDonnées.Text = "Erreur :  " & netFTP.ResponseInfo
Case icResponseCompleted
vntDonnées = netFTP.getchunk(1024)

Do Until Len(vntDonnées) = 0
strDonnées = strDonnées & vntDonnées
vntDonnées = netFTP.getchunk(1024)
DoEvents
Loop

txtDonnées.Text = strDonnées
End Select
End Sub

Conclusion :


Voilà..... Bonne prog a tous...

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
143
Date d'inscription
jeudi 27 mars 2008
Statut
Membre
Dernière intervention
3 septembre 2011
1
bonne source
Messages postés
6
Date d'inscription
jeudi 21 octobre 2004
Statut
Membre
Dernière intervention
21 décembre 2009

J'ai bien aimé ton ton code et j'aimerai que tu me dis plus sur net FTP et que je veux avoit plus sur son utilité merci
Messages postés
1467
Date d'inscription
samedi 13 mars 2004
Statut
Membre
Dernière intervention
5 mai 2010
3
Très bonne source !
Messages postés
67
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
2 septembre 2009

oO tu me flatte. En tout cas de rien, et merci à toi.
Messages postés
9
Date d'inscription
dimanche 20 juillet 2003
Statut
Membre
Dernière intervention
21 juillet 2003

oui, desolé, c parce que j'ai copié-collé le code au lieu de telecharger la source, il me manquait ce composant.
vraiment trés utile
bravo et merci encore!!
Afficher les 7 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.