Discussion :

[Maxi-môme]

Salut a tous,

Je crois que tout est dans le titre,

Comment recuperer la liste de tous les fichiers presents sur un FTP en passant par VBA..

Merci pour votre aide

[random]

peut être

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Function expl(racine As String) As Variant
Dim rep() As Variant
Dim colldir As New collection
Dim parco As Variant
Dim nb As Integer
Dim avant As Integer
Dim apres As Integer
Dim direct As String
Dim fichier As String
Dim dervu As Integer
dervu = 0
colldir.Add (racine)
Do
avant = colldir.Count
For nb = dervu + 1 To avant
direct = colldir(nb)
     fichier = dir(direct, vbDirectory)
       Do Until fichier = ""
       If fichier <> "." And fichier <> ".." And ((GetAttr(direct & fichier) And vbDirectory) = vbDirectory) Then
       colldir.Add (direct & fichier & "\")
       End If
       fichier = dir
       Loop
    dervu = dervu + 1
Next nb
Loop Until avant = colldir.Count
ReDim rep(1 To colldir.Count)
For nb = 1 To colldir.Count
rep(nb) = colldir(nb)
Next nb
expl = rep
End Function
 
 
Function chbases(lecteur As String) As Variant
Dim arbo As Variant
Dim parcourt As Variant
Dim fichier As String
arbo = expl(lecteur & ":\")
For Each parcourt In arbo
   fichier = dir(parcourt & "*.mdb")
   If fichier <> "" Then Debug.Print parcourt
   Do Until fichier = ""
   Debug.Print fichier
   fichier = dir
   Loop
Next parcourt
End Function