Comment récupérer tous les noms de fichiers et de sous dossier d'un do

Question

J'aimerais récupérer à partir d'un chemin donné l'ensemble des noms des dossiers et des fichiers contenu à cette adresse, pour par exemple inscrire le contenu d'un dossier dans un fichier texte ou autre.

Je ne voudrais pas utilisé de controle spécifique, y a t il un objet genre File ou quelque chose comme ça qui me permettrait de faire une boucle "for each" et ainsi récupérer le nom de l'objet par une propriété(nom du fichier donc) ? Ou dois je utiliser obligatoirement un controle spécifique et si oui lequel  :question) 

Merci d'avance  :)

Nektanebos · Answer

Dim encienposi, i
For i = 2 To Len(App.Path)If Mid$(App.Path, i - 1, 1) "" Then encienposi i
If Mid$(App.Path, i, 1) = "" And encienposi <> Empty Then
MsgBox Mid$(App.Path, encienposi, i - encienposi)
End If
Next i

zlavock · Answer

Merci de votre réponse mais ce n'est pas vraiment ce que je recherche, je réexplique:

Par exemple je me situe dans un dossier ex1 dont voici l'arborescence:
ex1\ssDossier1
ex1\ssDossier2
ex1\ex1.txt

je voudrais en précisant dans une variable le dossier courant (ici ex1) récupérer le nom des fichiers et dossier qu'il contient : ici je vais donc récupérer 
ssDossier1
ssDossier2
ex1.txt

Merci  :)

cs_wape · Answer

Voici un exemple utilisant le "FileSystemObject" :

Option Explicit

Public oFs As Object

Sub Main()

Set oFs = CreateObject("Scripting.FileSystemObject")

Dossiers_Fichiers ("C:\Temp")

End Sub

Sub Dossiers_Fichiers(sNomDossier As String)

Dim oDossier As Object
Dim oSousDossier As Object
Dim oSousDossiers As Object
Dim oFichier As Object
Dim oFichiers As Object
Dim sDossiers As String
Dim sFichiers As String

Set oDossier = oFs.GetFolder(sNomDossier)
Set oSousDossiers = oDossier.SubFolders

For Each oSousDossier In oSousDossiers
   sDossiers = sDossiers & oSousDossier.Name & vbCrLf
Next

MsgBox "Liste des sous-dossiers dans " & sNomDossier & vbCrLf & sDossiers

Set oFichiers = oDossier.Files

For Each oFichier In oFichiers
   sFichiers = sFichiers & oFichier.Name & vbCrLf
Next

MsgBox "Liste des fichiers dans " & sNomDossier & vbCrLf & sFichiers

End Sub

@+

wape

zlavock · Answer

Merci :big)