Conversion folder en string
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:
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.
