Lister(dir) un ftp avec inet dans un listbox

Commenter

Contenu du snippet

Ben voila encore une petite source pour afficher le contenu d'un Ftp dans une listbox.
Il faut
Un listbox : list1
Un bouton de command : command1
un control inet : inet 1

Source / Exemple : 


Private Sub Command1_Click()
With Inet1
.Protocol = icFTP 'declaration protocole
.URL = "ftp://user:pass@Ftp" 'le ftp
End With
Dim dirtxt As String

Inet1.Execute , "dir" 'lit la racine du ftp
Do Until Inet1.StillExecuting = False 'boucle pendant inet actif
DoEvents
Loop

dirtxt = Inet1.GetChunk(1024) 'recupere la liste de fichier dans dirtxt
Do Until Inet1.StillExecuting = False 'boucle pendant inet actif
DoEvents
Loop

'decoupage de la ligne
Dim tmp As String
Dim i As Integer

For i = 1 To Len(dirtxt) Step 1
    If Mid(dirtxt, i, 1) = Chr(13) And Mid(dirtxt, i + 1, 1) = Chr(10) Then
        If tmp <> "" Then List1.AddItem tmp
        tmp = ""
        i = i + 1
    Else
        tmp = tmp & Mid(dirtxt, i, 1)
End If

Next i
End Sub

Conclusion :


simple non?

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 (pcpunch)