Salut à tous! Je débute le VBscript puisque je dois en faire pour le boulot. Je vous explique mon probleme. J'effectue une recherche de fichier par extension en l'occurence les PST. Elle marche mais cette recherche s'effectue sur tous les supports (tous les disques). Je veux uniquement rechercher les fichiers sur le disque C. Peut-on aussi rechercher les fichiers qui ont une date de creation inférieur à 1 ans? Voici mon code :
strComputer = "." Set objFSO = CreateObject("Scripting.FileSystemObject" ) Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" ) Set colFiles = objWMIService.ExecQuery _ ("Select * from CIM_DataFile where Extension = 'pst'" ) For Each objFile in colFiles Wscript.Echo objFile.Name Next
Autre question, est-il possible d'afficher les resultats de la recherche autre que sur des msgbox, une fenetre avec tous les noms de fichiers par exemple et pouvoir ainsi les choisir (case à cochée par ex) pour les sauvegardés, qui est le but de mon utilitaire. Merci d'avance pour vos réponses!
Marsh Posté le 06-09-2006 à 17:42:02
Salut à tous!
Je débute le VBscript puisque je dois en faire pour le boulot. Je vous explique mon probleme.
J'effectue une recherche de fichier par extension en l'occurence les PST. Elle marche mais cette recherche s'effectue sur tous les supports (tous les disques). Je veux uniquement rechercher les fichiers sur le disque C. Peut-on aussi rechercher les fichiers qui ont une date de creation inférieur à 1 ans?
Voici mon code :
strComputer = "."
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Extension = 'pst'" )
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next
Autre question, est-il possible d'afficher les resultats de la recherche autre que sur des msgbox, une fenetre avec tous les noms de fichiers par exemple et pouvoir ainsi les choisir (case à cochée par ex) pour les sauvegardés, qui est le but de mon utilitaire.
Merci d'avance pour vos réponses!