Discussion :

[ritchie23]

Salut,

J'aimerais convertir un folder en string, et pas moyen de trouver la commande qui va bien ...

J'aimerais ballayer chacun de mes dossiers et voir s'il existe au moins un fichier dedans

En fait, voilà mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
 Dim filecollection As Folders
 Set filecollection = objfolder.SubFolders
 Dim campagne As Folder
 Dim fso As FileSystemObject
 Set fso = CreateObject("Scripting.FileSystemObject")
 Dim dir As String
 
For Each campagne In filecollection
        Dim Path, FileName As String
        Path = campagne ' ca bloque puisque file différent à folder
        FileName = dir(Path)
 
        If fso.FolderExists(FileName) = True Then  
             ' alors il existe au moins un fichier
        end if
Next

Merci, merci !
Ritchie.

[Krovax]

Jai du mal a comprendre ton problème, mais je pense que la FAQ contient un code qui pourrais t'interesser
Comment lister les fichiers contenus dans un répertoire ainsi que dans tous ses sous-répertoires ?
Il te suffit de récupérer les infos dans une variable texte et non dans une cellule

[ritchie23]

OK, merci. Ca va mieux. je viens enfin de me dépatouiller de ce problème VB.

Ritchie.