comment savoir si un dossier contient des sous dossier ou des fichiersRésolu

Question

Slt,
Comme le titre l'indique j'aimerais savoir le code pour savoir si un dossier contient des sous dossier  ou des fichiers ( &#224; l'aide d'une valeur string") important pour les sous dossiers")
s'il existe une API ce seraoi genial
Merci

michelxld · Accepted Answer

bonsoir Yves

j'espere que cet exemple r&#233;pondra &#224; ta demande

 
Dim Dossiers As Integer, Fichiers As Integer
Sub Test()
Dim Cible As String


Cible = "C:\Documents and Settings\michel\dossier"


compterDossiersFichiers Cible
MsgBox Dossiers & " sous dossiers " & vbLf & Fichiers & " fichiers "


Dossiers = 0
Fichiers = 0
End Sub


Sub compterDossiersFichiers(SourceFolderName As String)
'necessite d'aviter la reference Microsoft Scripting RunTime
' adapt&#233; de Ole P Erlandsen
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim SubFolder As Scripting.Folder


Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(SourceFolderName)


Fichiers = Fichiers + SourceFolder.Files.Count
Dossiers = Dossiers + SourceFolder.SubFolders.Count


For Each SubFolder In SourceFolder.SubFolders
compterDossiersFichiers SubFolder.Path
Next SubFolder


End Sub

bonne soiree
michel

Comment savoir si un dossier contient des sous dossier ou des fichiers

1 réponse

Discussions similaires