Recherche de fichiers

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:

---

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!;)

Essaye ça :

Code:

---

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

---

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:

---

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.

essai avec like...

Code:

---

.. And PATH like 'c:\%'

---

% ou * .. à voir

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

http://up.mezimages.com/up/09/1105352erreur.JPG

essaye comme cela :

Code:

---

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:

---

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 ? :D

bonjour

tu peux essayer cette syntaxe (attention aux doubles slashs)

Code:

---

1 2 3

Set colFiles = objWMIService.ExecQuery _ "SELECT * FROM CIM_DataFile WHERE Path = '\\Documents and Settings\\toto\\' " & _ "AND Drive = 'C:' AND Extension = 'pst'")

---

michel

Citation:

---

Envoyé par cedric600

essaye comme cela :

Code:

---

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:

---

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 ? :D

---

Tout d'abord, merci pour ton aide!;)
Conçernant la ligne suivante :
Set objFile = objFSO.GetFile("c:\windows\system32\scrrun.dll")
A quoi sert-elle, il me manque cette dll, le probleme, c'est que si je lance le script sur nimporte quel PC de l'entreprise, j'aurai toujours à y ajouter cette librairie.

Autre question rapide, comment inserer une variable dans un chemin d'accès à un fichier? Merci beaucoup!

Citation:

---

Envoyé par SilkyRoad

bonjour

tu peux essayer cette syntaxe (attention aux doubles slashs)

Code:

---

1 2 3

Set colFiles = objWMIService.ExecQuery _ "SELECT * FROM CIM_DataFile WHERE Path = '\\Documents and Settings\\toto\\' " & _ "AND Drive = 'C:' AND Extension = 'pst'")

---

michel

---

Merci pour ta réponse!
Voila l'erreur que j'ai :
http://up.mezimages.com/up/09/1106303erreur.jpg

OOuuppss

j'avais oublié ne parenthese

Code:

---

1 2 3

Set colFiles = objWMIService.ExecQuery _ ("SELECT * FROM CIM_DataFile WHERE Path = '\\Documents and Settings\\toto\\' " & _ "AND Drive = 'C:' AND Extension = 'pst'")

---

michel

Citation:

---

Set objFile = objFSO.GetFile("c:\windows\system32\scrrun.dll")
A quoi sert-elle, il me manque cette dll, le probleme, c'est que si je lance le script sur nimporte quel PC de l'entreprise, j'aurai toujours à y ajouter cette librairie.

---

Ce n'est pas une librairie, c'est le fichier dont tu veux énumerer les propriétés :

Code:

---

Set objFile = objFSO.GetFile("CHEMIN_COMPLET_DE_TON_FICHIER")

---

L'objet GetFile récupère un fichier spécifié. D'ailleurs c'est pour ca que j'ai dit qu'il devait y avoir mieux, car la tu doit lister tous les fichiers et vérifier un à un que les fichiers ont moins d'un an.
Mais, j'ai peut être mieux, essaye cela :

Code:

---

1 2 3 4

Set colFiles = objWMIService.ExecQuery _ ("SELECT * FROM CIM_DataFile WHERE Path = '\\Documents and Settings\\toto\\' " & _ "AND Drive = 'C:' AND Extension = 'pst' AND CreationDate <= '#07/09/2006#'")

---

L'argument CreationDate, de l'objet CIM_DataFile, est de type Date, donc je ne sais pas si on peut faire ce que j'ai fait directement.
Pour plus d'information sur cet objet : http://msdn.microsoft.com/library/de...stdregprov.asp

Citation:

---

Envoyé par cedric600

Ce n'est pas une librairie, c'est le fichier dont tu veux énumerer les propriétés :

Code:

---

Set objFile = objFSO.GetFile("CHEMIN_COMPLET_DE_TON_FICHIER")

---

L'objet GetFile récupère un fichier spécifié. D'ailleurs c'est pour ca que j'ai dit qu'il devait y avoir mieux, car la tu doit lister tous les fichiers et vérifier un à un que les fichiers ont moins d'un an.
Mais, j'ai peut être mieux, essaye cela :

Code:

---

1 2 3 4

Set colFiles = objWMIService.ExecQuery _ ("SELECT * FROM CIM_DataFile WHERE Path = '\\Documents and Settings\\toto\\' " & _ "AND Drive = 'C:' AND Extension = 'pst' AND CreationDate <= '#07/09/2006#'")

---

L'argument CreationDate, de l'objet CIM_DataFile, est de type Date, donc je ne sais pas si on peut faire ce que j'ai fait directement.
Pour plus d'information sur cet objet : http://msdn.microsoft.com/library/de...stdregprov.asp

---

Le probleme Cédric, c'est que le fichier dont je veux énumérer les propriétés va résulter de la recherche que je fais juste précedemment, tu comprends?

Sinon, j'ai une variable qui contient le nom d'utilisateur de la machine, et je veux creer un repertoire qui se nomme cette variable. Quoi mettre dans le chemin d'accès pour la création? Je connais pas la synthaxe!

Code:

---

1 2 3 4

'Creation du repertoire dans \\g00577\sav$ 'Set objFSO = CreateObject("Scripting.FileSystemObject") 'Set objFolder = objFSO.CreateFolder("\\g00577\sav$\C'est ici que je veux mettre la variable")

---

Merci beaucoup!

Est ce que tu lis nos réponse ???
La réponse à ta question se trouve dans nos réponse !!!

Citation:

---

Sinon, j'ai une variable qui contient le nom d'utilisateur de la machine, et je veux creer un repertoire qui se nomme cette variable. Quoi mettre dans le chemin d'accès pour la création? Je connais pas la synthaxe!

Code:

Code:

---

1 2 3

'Creation du repertoire dans \\g00577\sav$ 'Set objFSO = CreateObject("Scripting.FileSystemObject") 'Set objFolder = objFSO.CreateFolder("\\g00577\sav$\C'est ici que je veux mettre la variable")

---

---

Cela donne :

Code:

---

1 2 3

'Creation du repertoire dans \\g00577\sav$ 'Set objFSO = CreateObject("Scripting.FileSystemObject") 'Set objFolder = objFSO.CreateFolder("\\g00577\sav$\" & MA_VARIABLE)

---

Lorsque que tu as fait ta recherche de fichier, tu obtiens une collection d'objet, "colFiles" ici, tu peut alors la parcourir comme cela :

Code:

---

1 2 3 4 5

For Each Objet In colFiles 'Objet represente un objet de cette liste, alors tu peut en faire ce que tu veux MsgBox("Extension de l'objet : " & Objet.Extension) 'cela t'affiche dans une MsgBox l'extention de l'objet courant Next

---

Comme c'est une boucle cela t'affichera toutes les extensions de tous les fichiers recherches.
Certains de ces arguments sont en lecture seul, donc va sur le site que je t'ai passé en lien pour savoir ce que tu peut en faire.

J'ai fais ce que tu m'a dit Cédric, sa a fonctionner! Merci!
Par contre, un autre probleme se pose à moi, pour copier dans un repertoire.
Voici le code :

Code:

---

1 2 3 4 5 6 7

Dim objFSO Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") IF objFSO.FolderExists ("c:\Documents and Settings\") & identifiant ("\Desktop") THEN objFSO.CopyFolder ("c:\Documents and Settings\") & identifiant ("\Desktop"), ("\\G00577\sav$\" & identifiant) END IF msgbox "Copie des icônes du bureau effectuée avec succès"

---

J'ai une erreur, "Type incompatible : identifiant"
Identifiant est une variable que je releve dans un Inputbox.
Ya t-il un souci au niveau des chemin d'accès?
Merci de m'aider!

Le probleme est que tu met entre paranthese chacune de tes strings, or il ne faut pas.
Un exemple pour comprendre :

Soit une methode d'un objet qui prend 3 parametres et qui ne renvois pas de valeur :

Code:

---

1 2 3

Objet.Methode "parametre1", "par" & MaVariable & "etre3", "parametre2" 'MaVariable a pour valeur "am"

---

Soit une methode d'un objet qui prend 3 parametre et qui renvois une valeur :

Code:

---

1 2 3

MaVariableRetour = Objet.Methode ("parametre1", "par" & MaVariable & "etre3", "parametre2") 'MaVariable a pour valeur "am"

---

Donc ton code devient :

Code:

---

1 2 3 4 5 6

Dim objFSO Set objFSO = WScript.CreateObject ("Scripting.FileSystemObject") IF objFSO.FolderExists ("c:\Documents and Settings\" & identifiant & "\Desktop") THEN objFSO.CopyFolder "c:\Documents and Settings\" & identifiant & "\Desktop", "\\G00577\sav$\" & identifiant END IF msgbox "Copie des icônes du bureau effectuée avec succès"

---

Merci Cédric! Sa fonctionne!
Pour ce qui conçerne la recherche, je reprendrai tout depuis le début de façon clair, sa sera plus facile!;)

Par contre, quelques petites questions :
Dans un inputbox, comment mettre une valeur dans le champ, la valeur sera par defaut.
Puis conçernant la taille d'un dossier, celle-ci fonctionne trés bien mais est-il possible de l'avoir en Mo?
Merci beaucoup!

Donc je résume pour ma recherche, je rappelle que je veux recherches les fichiers sur le c de types doc, pst, ... qui ont une date de création inférieur à 1 ans.
Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

'Rechercher les fichiers msgbox "Recherche de documents PST, DOC, PPT, ... (Ceci peut prendre quelques minutes)" strComputer = "." Set objFSO = CreateObject("Scripting.FileSystemObject") Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery _ ("SELECT * FROM CIM_DataFile WHERE Drive = 'C:' AND Extension = 'doc' AND CreationDate <= '#07/09/2006#'") For Each objFile in colFiles Wscript.Echo objFile.Name Next msgbox "Recherche terminée"

---

J'ai l'erreur suivante :
http://up.mezimages.com/up/09/1108510erreur.jpg

Merci de m'aider!

Le message d'erreur précise la ligne où l'erreur se trouve, du moins où l'interpreteur du script n'a pas réussi à interpreter. Mais comme nous n'avons pas les numero de ligne avc ton code, nous ne savons pas quelle ligne regarder.
Donc ma question est la suivante, quelle est la ligne 45 ?

Citation:

---

Envoyé par cedric600

Le message d'erreur précise la ligne où l'erreur se trouve, du moins où l'interpreteur du script n'a pas réussi à interpreter. Mais comme nous n'avons pas les numero de ligne avc ton code, nous ne savons pas quelle ligne regarder.
Donc ma question est la suivante, quelle est la ligne 45 ?

---

J'ai un peu avancé depuis tout à l'heure, donc :
Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

msgbox "Recherche de documents Word" strComputer = "." Set objFSO = CreateObject("Scripting.FileSystemObject") Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery _ ("SELECT * FROM CIM_DataFile WHERE Drive = 'C:' AND Extension = 'doc'") For Each objFile in colFiles 'Wscript.Echo objFile.Name resultat = objFile.name

---

Je laisse tomber la date de création pour l'instant.
Ici, je récupere les résultats de la recherche dans une variable "resultat"
Je souhaiterai copier maintenant ces résultats dans un repertoire sur un pc distant.
Je te remercie!

Pour copier tes resultats sur le disque dur, tu doit les ecrires dans un fichiers dans un répertoire precis.

Aide toi de ce site pour faire ton script :
http://www.activexperts.com/activmon.../filesfolders/

Et de ce site pour comprendre les objets WMI que tu utilise (ex :CIM_DataFile qui fait partie des classes CIM dans les classes WMI) :
http://msdn.microsoft.com/library/de...stdregprov.asp