Cliens ftp...

Télécharger le projet
Commenter

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...
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 (StiriX)