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

zlavock Messages postés 4 Date d'inscription vendredi 3 janvier 2003 Statut Membre Dernière intervention 20 novembre 2004 - 3 janv. 2003 à 16:32
zlavock Messages postés 4 Date d'inscription vendredi 3 janvier 2003 Statut Membre Dernière intervention 20 novembre 2004 - 4 janv. 2003 à 19:28
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

Nektanebos Messages postés 62 Date d'inscription mercredi 4 décembre 2002 Statut Membre Dernière intervention 27 avril 2003
3 janv. 2003 à 17:00
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
zlavock Messages postés 4 Date d'inscription vendredi 3 janvier 2003 Statut Membre Dernière intervention 20 novembre 2004
4 janv. 2003 à 10:43
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
cs_wape Messages postés 262 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 19 décembre 2010 11
4 janv. 2003 à 12:42
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
zlavock Messages postés 4 Date d'inscription vendredi 3 janvier 2003 Statut Membre Dernière intervention 20 novembre 2004
4 janv. 2003 à 19:28
Merci :big)
0
Rejoignez-nous