Probleme dans une Variable

Version imprimable

Bonjour à tous!
J'ai un probleme dont je connais l'origine sans pour autant savoir le résoudre.
Je fais une recherche de fichier et j'affecte les résultats dans la variable nom.
Code:

1 2 3 4 5 6 7 8 9 10 11 Set colFiles = objWMIService.ExecQuery _ ("SELECT * FROM CIM_DataFile WHERE Path = '\\Documents and Settings\\fr41181\\Desktop\\test\\" & user & "\\' AND Extension = 'pst'") Set objFSO = CreateObject("Scripting.FileSystemObject") For Each objFile in colFiles 'Wscript.Echo objFile.Name Set objFile = objFSO.GetFile(objFile.Name) 'dcreation= "Wscript.Echo & objFile.DateCreated" datecreation = objFile.DateLastModified 'nom = objFile.Name Next
Le probleme est que dans la variable nom, il me garde que le dernier resultat de la recherche, ce qui est normal puisque c'est une boucle.
Donc, ce que j'ignore, c'est comment faire pour que dans ma variable Nom, il me garde tous les resultats.
J'espere que j'ai été assez claire. Merci!

13/10/2006, 16h40
ced600

La solution est simple : REFLECHIR !!!!!
Il existe différente solutions à ton problème, tableaux, dictionnaire, collection, concaténation de string, ... Le tout dépend de ce que tu veux faire. Fait des recherhces sur google, refléchit un peu, et reviens nous voir lorsque tu as un bug !!!
13/10/2006, 20h49
bov13

Si la solution est simple, pourquoi ne pas me la donner et au moins, vous serez tranquille et moi aussi. C'est la fin de mon script en plus.
J'ai déja réflechis, mais j'ai pas de méthodes, ni d'indices.
Alors, svp, faites un petit effort. Merci!
14/10/2006, 18h18
omen999

je sais que je ne devrais pas... :mrgreen: :

Code:

nom = nom & "|" & objFile.Name

où | est un séparateur arbitraire
14/10/2006, 18h28
SfJ5Rpw8

Citation:

Envoyé par bov13

Si la solution est simple, pourquoi ne pas me la donner et au moins, vous serez tranquille et moi aussi. C'est la fin de mon script en plus.
J'ai déja réflechis, mais j'ai pas de méthodes, ni d'indices.
Alors, svp, faites un petit effort. Merci!

ben toi aussi fait un effort .. répond à la question à cedric.. sous quelle forme ve tu ta liste de nom de fichier ...?

omen999 ta donné la solution "concaténation" en mettant tous les noms de fichier dans une variable texte séparé par des le caractére | ... mais si tu nous dis pas ce que tu ve faire de tes noms de fichiers. il nous est difficile de te donner une réponse...
alors la balle est dans ton camp ..;)
15/10/2006, 13h04
bov13

Donc, j'inclue ma variable nom dans un fichier texte! Par conséquent, je voudrai que le script m'affiche dans le fichier txt tous les fichiers trouvés.
15/10/2006, 13h58
AlainTech

Citation:

Envoyé par bov13

je voudrai que le script m'affiche dans le fichier txt tous les fichiers trouvés.

Avant d'afficher, il faudrait qu'ils soient déjà écrits, peut-être...
15/10/2006, 22h02
SfJ5Rpw8

Citation:

Envoyé par bov13

Donc, j'inclue ma variable nom dans un fichier texte! Par conséquent, je voudrai que le script m'affiche dans le fichier txt tous les fichiers trouvés.

... ?:( je comprends rien quelqu'un peu me traaduire ..?...? :(
16/10/2006, 10h35
ced600

Il n'a jamais etait très clair dans ses réponses. Il veut écrire tous les noms des fichiers, contenu dans sa collection, dans un fichier.

Voila pour le code complet, sa sera plus clair :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
msgbox "Programme de recherche de fichier PST", vbInformation , "Outil PST"
 
On Error Resume Next 
 
'Lecture du fichier INI
Dim objetFSO
Set objetFSO = CreateObject("Scripting.FileSystemObject")
Set Flux = objetFSO.OpenTextFile("c:\Documents and settings\fr41181\Desktop\0.ini")
 
Flux.skipline
server="Wscript.Echo Flux.readline"
Flux.skipline
folder="Wscript.Echo Flux.readline"
Flux.skipline
outputfile="Wscript.Echo Flux.readline"
Flux.skipline
Flux.skipline
Flux.skipline
Flux.skipline
users = split(Flux.readALL,vbcrlf)
strComputer = "." 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
For Each user in users
 If user <> "" Then
'Wscript.echo "Recherche sur  " & "'\\Documents and Settings\\Antoine\\Bureau\\test\\" & user
   Set colFiles = objWMIService.ExecQuery _
("SELECT * FROM CIM_DataFile WHERE Path = '\\Documents and Settings\\fr41181\\Desktop\\test\\" & user & "\\' AND Extension = 'pst'")
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   For Each objFile in colFiles
   'Wscript.Echo  objFile.Name
   Set objFile = objFSO.GetFile(objFile.Name)
   'dcreation= "Wscript.Echo & objFile.DateCreated"
   datecreation = objFile.DateLastModified
   nom = objFile.Name
   Next
End if
 
 
'Pour creer le fichier texte
Dim MyTime
MyTime = Time
pointvirgule = ";"
Set FSys = CreateObject("Scripting.FileSystemObject") 
Set MonFic = FSys.CreateTextFile("G:\GIRAUD\ECHANGE\ADM\ITB\Antoine\" & user) 
With MonFic 'Pour écrire dans le fichier texte 
.write ("FRxxxxx")
.write (pointvirgule)
.write ("Nom fichier")
.write (pointvirgule)
.write ("Date de dernière modification du fichier")
.writeline (pointvirgule)
.write (user)
.write (pointvirgule)
.write (Nom)
.write (pointvirgule)
.write (datecreation)
.write (pointvirgule)
End With 
Next
Msg = "Écriture réussie dans fichier.txt sur G:\Giraud\echange\adm\itb\" 
MsgBox(Msg)

16/10/2006, 11h39
ced600

Bah si tu veux ecrire les noms des fichiers les un à la suite des autres sur une seule ligne, utilise la solution d'omen999.
17/10/2006, 08h30
bov13

Exact, j'ai utilisé sa solution et sa fonctionne. Merci!
Mais, j'ai un autre souci, je crée donc un fichier txt pour chaque user avec les nom des fichiers PST trouvés.
Mais dans mes fichiers txt, les résultats trouvés se cumulent. Donc, dans le dernier fichier txt de mon dernier users, je me retrouve avec ses fichiers PST à lui mais aussi, tous les fichiers PST trouvés avant.

J'ai une idée mais j'aimerai savoir si les vôtres correspondent avec la mienne.
Merci beaucoup
17/10/2006, 11h52
omen999

le code qui crée le fichier texte doit être inclus dans la boucle

Code:

For Each objFile in colFiles

(à la fin de la boucle :roll:)
[edit]grosse bêtise :aie: suivre le conseil de cedric
17/10/2006, 12h05
ced600

Bah c normal, pour le premier user, la variable name est vide, donc tout se passe bien. Mais pour le deuxième name contient tous les noms des fichiers du premier user. Donc on a une accumulation des nom de fichiers.
Il faudrait qu'à chaque tour de boucle tu réinitialise ta varaible :

Code:

nom = ""
17/10/2006, 13h44
bov13

D'accord Cédric mais vu que je crée les fichiers txt aprés la boucle, je ne vais pas garder en mémoire les anciens résultats de la recherche. Je vais garder que les derniers résultats pour le dernier user.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
                For Each user in users
If user <> "" Then
'Wscript.echo "Recherche sur  " & "'\\Documents and Settings\\Antoine\\Bureau\\test\\" & user
   Set colFiles = objWMIService.ExecQuery _
("SELECT * FROM CIM_DataFile WHERE Path = '\\Documents and Settings\\fr41181\\Desktop\\test\\" & user & "\\' AND Extension = 'pst'")
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   For Each objFile in colFiles
   'Wscript.Echo  objFile.Name
   Set objFile = objFSO.GetFile(objFile.Name)
   'dcreation= "Wscript.Echo & objFile.DateCreated"
   datecreation = objFile.DateLastModified
   nom = objFile.Name
   Next
End if
 
 
'Pour creer le fichier texte
Dim MyTime
MyTime = Time
pointvirgule = ";"
Set FSys = CreateObject("Scripting.FileSystemObject") 
Set MonFic = FSys.CreateTextFile("G:\GIRAUD\ECHANGE\ADM\ITB\Antoine\" & user) 
With MonFic 'Pour écrire dans le fichier texte 
.write ("FRxxxxx")
.write (pointvirgule)
.write ("Nom fichier")
.write (pointvirgule)
.write ("Date de dernière modification du fichier")
.writeline (pointvirgule)
.write (user)
.write (pointvirgule)
.write (Nom)
.write (pointvirgule)
.write (datecreation)
.write (pointvirgule)
End With 
                         Next

Comme tu peux le voir un tour de boucle comprends l'écriture du fichier.
Tu ne réinitialise jamais name.
Si après cette boucle :

Code:

1
2
3
4
5
6
7
8
 
For Each objFile in colFiles
   'Wscript.Echo  objFile.Name
   Set objFile = objFSO.GetFile(objFile.Name)
   'dcreation= "Wscript.Echo & objFile.DateCreated"
   datecreation = objFile.DateLastModified
   nom = objFile.Name
   Next

ta variable nom n'est pas nul (elle n'est pas nul parce que tu vois des valeurs dans le fichier, et la création du fichier est faie apres la boucle)
alors au tour de boucle suivant, elle n'est toujours pas null.
Tu devrais faire :

Code:

1
2
3
4
5
6
7
8
9
 
For Each user in users
name = ""
If user <> "" Then
'Wscript.echo "Recherche sur  " & "'\\Documents and Settings\\Antoine\\Bureau\\test\\" & user
   Set colFiles = objWMIService.ExecQuery _
("SELECT * FROM CIM_DataFile WHERE Path = '\\Documents and Settings\\fr41181\\Desktop\\test\\" & user & "\\' AND Extension = 'pst'")
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   For Each objFile in colFiles

Tout fonctionne cédric, merci! Par contre, j'aimerai comprendre certains trucs :

Moi, j'avais essayé de reinitialiser mes variables nom et datecreation.
Mais, je l'avais fait dans cette boucle :
Code:

1 2 3 4 5 6 7 8 For Each objFile in colFiles 'Wscript.Echo objFile.Name Set objFile = objFSO.GetFile(objFile.Name) 'dcreation= "Wscript.Echo & objFile.DateCreated" datecreation = objFile.DateLastModified nom = objFile.Name Next
J'avoue ne pas bien comprendre la difference entre les 2 boucles.

17/10/2006, 14h31
ced600

Elle n'ont rien à voir, dans la premier tu parcours tes users dans ta collection users, et la deuxieme tu parcours tes fichiers dans ta collection de fichier.
Si tu reinitialise dans la deuxieme boucle (celle du parcours des fichiers), à chaque tour de boucle, donc à chaque fichier appartenant à la collection, donc en gros pour chaque fichier du repertoire, tu va remettre à zero ta variable et donc perdre le nom du précédent fichier, et au final tu te retrouves uniquement avec le dernier nom.
Tandis que si tu reinitialises dans la premiere boucle tu ne réinitialise que lorsque tu passe à un autre repertoire.
17/10/2006, 14h42
bov13

D'accord, je te remercie! Bonne aprem!