Super ftp

Soyez le premier à donner votre avis sur cette source.

Vue 9 613 fois - Téléchargée 1 240 fois

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!!!

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
291
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
13 mars 2015

Bin non ça ne sert pas à rien, c'est pile poil ce dont j'ai besoin pour un sujet d'étude d'école d'un étudiant.
En gros : ajout d'un timer et d'une sélection de fichier et envoi périodique sur un site des données d'une carte d'acquisition locale pour affichage en temps réel sur un site.
J'ai pas besoin de plus. en plus je ne connaissais pas cette méthode.
Merci JJDAI
Messages postés
68
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
31 janvier 2009

çà ne sert a rien cette source
Messages postés
419
Date d'inscription
lundi 30 août 2004
Statut
Membre
Dernière intervention
28 janvier 2008

pour ton server microsoft je les ai penetrer oublie il ont pas un truc genre ftp.microsoft.com ses tt autre chose enfin bonne chance a toi si tu te lance la dedans ;)
sinon la base de ta source est tres bonne meme si je le trouve tres peu limiter mais sinon pas mal ;) 7/10
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
1
Allez voir ici pour un client FTP élaboré, ça pourrait peut-etre vous intéresser : http://www.vbfrance.com/code.aspx?ID=8415
Messages postés
78
Date d'inscription
lundi 13 mai 2002
Statut
Membre
Dernière intervention
4 mai 2008

J'ai besoin de l'OCX MSINET.
SVP CA URGE POUR MON FTP SVPPP!!!
msinet.ocx > baggadule@wanadoo.fr
Afficher les 8 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.