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!
Marsh Posté le 17-08-2009 à 17:41:33
Salut, via Gog http://www.google.fr/search?hl=fr& [...] ount&meta=
Make sure you enter the(*)required information where indicate.HTML code is not allowed
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!