CLIENS FTP...

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

Télécharger le zip