Merci
-------------------------------
Réponse au message :
-------------------------------
> 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
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > 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
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > >
> > >
> > > 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
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > 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
> > > >
> > > > Merci d'avance
> > >
> >
>