Comment récupérer tous les noms de fichiers et de sous dossier d'un do
zlavock
Messages postés4Date d'inscriptionvendredi 3 janvier 2003StatutMembreDernière intervention20 novembre 2004
-
3 janv. 2003 à 16:32
zlavock
Messages postés4Date d'inscriptionvendredi 3 janvier 2003StatutMembreDernière intervention20 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 :)
A voir également:
Comment récupérer tous les noms de fichiers et de sous dossier d'un do
Nektanebos
Messages postés62Date d'inscriptionmercredi 4 décembre 2002StatutMembreDernière intervention27 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
zlavock
Messages postés4Date d'inscriptionvendredi 3 janvier 2003StatutMembreDernière intervention20 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
cs_wape
Messages postés262Date d'inscriptionsamedi 21 décembre 2002StatutMembreDernière intervention19 décembre 201011 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