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

Signaler
Messages postés
4
Date d'inscription
vendredi 3 janvier 2003
Statut
Membre
Dernière intervention
20 novembre 2004
-
Messages postés
4
Date d'inscription
vendredi 3 janvier 2003
Statut
Membre
Dernière intervention
20 novembre 2004
-
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 :)

4 réponses

Messages postés
62
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
27 avril 2003

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
0
Messages postés
4
Date d'inscription
vendredi 3 janvier 2003
Statut
Membre
Dernière intervention
20 novembre 2004

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 :)
0
Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
11
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
0
Messages postés
4
Date d'inscription
vendredi 3 janvier 2003
Statut
Membre
Dernière intervention
20 novembre 2004

Merci :big)
0