dionysos6868
Messages postés310Date d'inscriptionjeudi 4 septembre 2003StatutMembreDernière intervention 9 juin 2005
-
7 mars 2004 à 18:30
dionysos6868
Messages postés310Date d'inscriptionjeudi 4 septembre 2003StatutMembreDernière intervention 9 juin 2005
-
9 mars 2004 à 14:06
voici mon code
Private Sub Form_Load()
With Inet1
.Protocol = icFTP
.URL = "ftp.membres.lycos.fr"
.UserName = "******"
.Password = "******"
.Execute , "ls" ' Renvoie le dossier.
End With
Dim dirtxt As String
Do Until Inet1.StillExecuting = False 'boucle pendant inet actif
DoEvents
Loop
dirtxt = Inet1.GetChunk(1024, 0) 'recupere la liste de fichier dans dirtxt
Do Until Inet1.StillExecuting = False 'boucle pendant inet actif
DoEvents
Loop
MsgBox dirtxt
End Sub
je souhaite juste fair un listing des repertoir et fichier qui sont sur mon ftp
mais la ca me renvois un blanc dans ma msgbox.
merci de votre aide