Discussion :

[MegaBigBoss]

Bonsoir à tous , alors , je vous expose mon problème :

J'ai mon composant Inet qui execute une commande "DIR" et qui renvoi le resultat dans listbox1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Command1_Click()
With Inet1
.Protocol = icFTP 'declaration protocole
.URL = "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

Donc , jusque la tout vas bien ensuite , j'aimerais savoir chemin du fichier séléctionné dans la list1 et la , je ne sais pas comment faire , j'ai trouvé un code mais , c'est pour une filelist :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SelectedFile = File1.Path & "\" & File1.FileName

Donc , j'aimerais la meme chose que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SelectedFile = File1.Path & "\" & File1.FileName

mais avec une filelist .

C'est pour lire un fichier txt sur un serveur ftp dans une list2.

Cordialement ,

MegaBigBoss

[MegaBigBoss]

J'ai peut etre trouvé une solution , mais , je ne sais pas comment faire ....
Au lieu de faire un DIR dans la listbox , pourquoi ne pas la faire dans une filelist ?