VB Script pour compter le nbr de fichier des dossiers ET sous dossiers

VB Script pour compter le nbr de fichier des dossiers ET sous dossiers - VB/VBA/VBS - Programmation

Marsh Posté le 17-08-2009 à 14:25:41    

Bonjour,
 
Après avoir fait des recherches sur le forum, j'ai trouver un script permettant de donner le nombre de fichiers .txt par exemple dans un dossier.
 
Je n'arrive pas à trouver comment faire pour qu'il cherche aussi dans les sous répertoires! En effet, il s'arrête au répertoire donné.
 
Je vous mets le bout de code :  
----------------------
 
strDiskDrive = Wscript.Arguments.Unnamed.Item(0)
strPath = Wscript.Arguments.Unnamed.Item(1)
 
 
strComputer = "."
 
'Wscript.Echo "Before set objWMIService ."
 
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
 
'Wscript.Echo "Before set objWMIService.ExecQuery ."
 
Set colFiles = objWMIService.ExecQuery _
    ( "SELECT * FROM CIM_DataFile WHERE Drive = '" & strDiskDrive & "' AND Path = '" & strPath & "'AND Extension = 'txt' " )
 
 
FileCount = 0
For Each objFile in colFiles
    'Wscript.Echo objFile.Name  
    FileCount = FileCount + 1
Next
 
 
'Wscript.Echo "Total number of files is: " & FileCount
 
 
---------------------
 
Si vous avez des idées...
 
Merci beaucoup! :hello:

Reply

Marsh Posté le 17-08-2009 à 14:25:41   

Reply

Marsh Posté le 17-08-2009 à 17:41:33    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed