Discussion :

[bov13]

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.
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 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!

[ced600]

Essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
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' And PATH = 'c:\toto\'") 
For Each objFile in colFiles 
Wscript.Echo objFile.Name 
Next

[bov13]

Voila, j'ai rajouté le PATH = 'c:' mais il cherche uniquement dans la racine et non ds tous les repertoires sous c:
J'ai tenté de rajouté aussi le \ , ce qui donne 'c:\' mais sans succès.
Sinon, as tu une idée pour qu'il me recherche les fichiers qui ont une date de création inférieur à 1 ans. Je te remercie!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
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 = 'doc' and PATH = 'c:'") 
For Each objFile in colFiles 
Wscript.Echo objFile.Name 
Next

Pour info, il continue à chercher ailleur aussi puis il cherche sur le lecteur disquette.

[SfJ5Rpw8]

essai avec like...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.. And PATH like 'c:\%'

% ou * .. à voir

[bov13]

Voila, l'erreur que j'ai bill en testant tes solutions :

[ced600]

essaye comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PATH like 'c:\'

On ne sait jamais.

Voici un petit site qui devrait t'aider pour ce que tu fait :
http://www.activexperts.com/activmon...folders/files/

J'ai trouvé sur le site ci-dessus, cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Enumerating File Properties
Demonstration script that uses the FileSystemObject to enumerate the properties of a file.
Script must be run on the local computer.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("c:\windows\system32\scrrun.dll")
Wscript.Echo "Date created: " & objFile.DateCreated
Wscript.Echo "Date last accessed: " & objFile.DateLastAccessed
Wscript.Echo "Date last modified: " & objFile.DateLastModified
Wscript.Echo "Drive: " & objFile.Drive
Wscript.Echo "Name: " & objFile.Name
Wscript.Echo "Parent folder: " & objFile.ParentFolder
Wscript.Echo "Path: " & objFile.Path
Wscript.Echo "Short name: " & objFile.ShortName
Wscript.Echo "Short path: " & objFile.ShortPath
Wscript.Echo "Size: " & objFile.Size
Wscript.Echo "Type: " & objFile.Type

Après avoir trouve tous les fichiers que tu recherche, tu peux regarder un à un l'attribut de création (DateCreated) de ces fichiers et en faire ce que tu veux.
Il doit y avoir mieux, mais pour l'instant c'est dèja ça, non ?