Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1557 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1915742
magzz
Posté le 17-08-2009 à 14:25:41  profilanswer
 

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:

mood
Publicité
Posté le 17-08-2009 à 14:25:41  profilanswer
 

n°1915924
kiki29
Posté le 17-08-2009 à 17:41:33  profilanswer
 

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
linklabel ouvrir un fichier VBWebservice SOAP - passage du contenu d'un fichier en variable
[MySQL] Importation fichier txt : nom de champs?Debutant VB: un probleme de ligne a copier!!!
Aide script concaténation intelligente sur deux fichiersInserer données fichier excel dans base Mysql
Fichier excel généré qui a une taille anormale [RESOLU]Importation fichier csv sur une table access
Plus de sujets relatifs à : VB Script pour compter le nbr de fichier des dossiers ET sous dossiers


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR