Lister les Dossiers, mais pas les Sous-Dossiers

[YANN-56]

Bonsoir à tous,

Question simple je ne doute pour beaucoup.

Avec "Get" ou "FileSearch " je navigue pas trop mal...!

Mais je ne suis pas fichu de ne dresser que la liste des fichiers
présents dans le dossier Parent, sans me farcir le contenu des
Sous-Dossiers.

"SubFolders" M'énerve !!!!

Merci pour votre aide, si ..

Dans tous les cas bonne soirée à qui passera par là

Yann

P.S. Je ne parviens pas à dézipper les pièces compressées jointes des messages.
Winrar, Winzip.. et c. .. J'ai semble-t-il été pas bon qq part

 

[vbacrumble]

Re : Lister les Dossiers, mais pas les Sous-Dossiers

Bsr le forum


En utilisant FSO

Sub liste_fichiers()
Dim folder: Dim FSO: Dim fold
Dim file: Dim r
folder = "C:\Parent"
Set FSO = CreateObject("Scripting.fileSystemObject")
Set fold = FSO.getFolder(folder)
On Error Resume Next
r = Range("A65536").End(xlUp).Row + 1
For Each file In fold.Files
Cells(r, 1) = file.Name
r = r + 1
Next
Set fold = Nothing: Set FSO = Nothing
End Sub

A+

 

[YANN-56]

Re : Lister les Dossiers, mais pas les Sous-Dossiers

Merci vbacrumble,

Je me suis sans doute mal exprimé sur le
"Dossier Parent" , qui est pour moi celui qui contient
le Dossier où je fouille. (Ce dernier n'a pas obligatoirement ce nom).

Cependant je vais tester ton code.
Le support d'une feuille Excel n'est pas trop mon truc.
J'y vais !!!

Merci à toi d'avoir pris le temps de me répondre
, et bonne soirée.

Yann

 

[BOISGONTIER]

Re : Lister les Dossiers, mais pas les Sous-Dossiers

Bonjour,

Sub ListeRep()
 repertoire = "c:\mesdoc\"
 [A:A].ClearContents
 NomRep = Dir(repertoire, vbDirectory)
 i = 2
 Do While NomRep <> ""
  If NomRep <> "." And NomRep <> ".." Then
    If (GetAttr(repertoire & NomRep) And vbDirectory) = vbDirectory Then
       Cells(i, 1) = NomRep
       i = i + 1
    End If
  End If
  NomRep = Dir
 Loop
End Sub

JB
Formation Excel VBA JB