Super ftp

Télécharger le projet
Commenter

Description

C'est un petit client Ftp

Je sais qu'il y en a de beaucoup + complet sur le site mais je présente quand même le mien

Source / Exemple : 


'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

Conclusion :


commenter svp!!!
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 (cs_steven007)