SUPER FTP

'Voila comment ont fait pour se connecter à un ftp et vérifier en même temps
'si elle est valable et si elle contient quelque chose. Un vrai client FTP
'avec pas beaucoup d'option :-).

'Le principale c'est comment ont fait la connexion, et bein voila.


Private Sub cmdconnecter_Click()
'Etabli la connexion avec le serveur ftp grâce à la méthode Execute
    On Error GoTo Erreur
    
    netftp.Execute txturl.Text, "DIR"
    Exit Sub
    
Erreur:
    txtdonnées.Text = "Erreur : " & Err.Description
End Sub

Private Sub cmdquitter_Click()
netftp.Cancel
Unload Me
End Sub

Private Sub Form_Load()
'vide les zone de txt
    txturl = ""
    txtdonnées = ""

    Me.Show
    txturl.SetFocus
End Sub

Private Sub netftp_StateChanged(ByVal State As Integer)
    Dim données As Variant
    Dim données1 As String
    
    Select Case State
    Case icError
    'Afficher les infos d'eurreur
    txtdonnées.Text = "Erreur : " & netftp.ResponseInfo
    Case icResponseCompleted
    'lire le premier bloc
    données = netftp.GetChunk(1024)
    
    Do Until Len(données) = 0
    données = données & données1
    'lire le bloc suivant
    données = netftp.GetChunk(1024)
    DoEvents
    Loop
    
    txtdonnées.Text = données
    End Select
End Sub

'Contrôle si l'adresse est vide ou ne contient pas au moins un séparateur

Private Sub txturl_Validate(Cancel As Boolean)
    If Trim$(txturl.Text) = "" Or InStr(txturl.Text, ".") = 0 Then
    
    MsgBox "Veuillez indiquer une adresse VALABLE!!!", vbOKOnly + vbExclamation, "FTP"
    Cancel = True
    End If
End Sub

Télécharger le zip