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 ?

[SilkyRoad]

bonjour

tu peux essayer cette syntaxe (attention aux doubles slashs)

Code :

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

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

michel

[bov13]

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 ?

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!

[bov13]

bonjour

tu peux essayer cette syntaxe (attention aux doubles slashs)

Code :

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

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 :

[SilkyRoad]

OOuuppss

j'avais oublié ne parenthese

Code :

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

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

michel

[ced600]

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 :

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

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 :

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

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

[bov13]

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

Code :

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

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 :

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

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 :

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

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!

[ced600]

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

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 :

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

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 :

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

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 :

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

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.

[bov13]

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 :

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

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!

[ced600]

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 :

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

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 :

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

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

Donc ton code devient :

Code :

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

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"

[bov13]

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!

[bov13]

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 :

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

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 :


Merci de m'aider!

[ced600]

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 ?

[bov13]

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 :

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

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!

[ced600]

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