[VBS] Tester plusieurs répertoire avec un seul If

Version imprimable

Bonjour, je suis entrain de créer un VBS pour vérifier l'éxistances de certains répertoires sur mon disuqe dur, je commence avec ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Var1= "C:\Program Files\ut\1" Var2= "C:\Program Files\ut\2" ' Set objFSO = CreateObject("Scripting.FileSystemObject") ' If objFSO.FolderExists(Var1) Then Wscript.Echo "Le répertoire Var1 exite." Wscript.Echo "Le répertoire Var2 exite." Else Wscript.Echo "Le répertoire Var1 n'exite pas." Wscript.Echo "Le répertoire Var2 n'exite pas." End If '
Voila j'aimerai tester ses deux répertoires dans un seul IF mais la sa plante, quelqu'un aurait-il une solution ?

24/02/2006, 21h03
sovo

tu peut utiliser une boucle "tant que" (while). je croit que la tu n'aura qu'a faire un seul "if".
24/02/2006, 21h05
Edoxituz

Bonjour sovo :wink: , vous savez où je peut trouver un exemple ?

ok voila un petit exemple.

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
 
   dim i as integer
   'Tout d'abord tu met le chemin de tes fichier dans un tableau.
   dim FilePath(1 to 10) as string    'Ceci te permet d'avoir 10 fichiers mais tu peut redimensionner ton tableau avec l'instruction "ReDim"
 
   FilePath(1)="C:\Program Files\ut\1" 
   FilePath(2)="C:\Program Files\ut\2"
 
   'Et maintenant tu peut commencer a chercher tes fichiers
 
   Set objFSO = CreateObject("Scripting.FileSystemObject") 
   i=0 
 
   'Premiere solution : avec le "while"
   while i<=10 
         If objFSO.FolderExists(FilePath(i)) Then 
               Wscript.Echo "Le répertoire FilePath(i) exite." 
         Else 
               Wscript.Echo "Le répertoire FilePath(i) n'exite pas." 
         End If 
 
         i=i+1
   wend
 
   'Deuxieme solution: avec le "for"
   for i=1 to 10
         If objFSO.FolderExists(FilePath(i)) Then 
               Wscript.Echo "Le répertoire FilePath(i) exite." 
         Else 
               Wscript.Echo "Le répertoire FilePath(i) n'exite pas." 
         End If 
 
         i=i+1
   next

je croit que ca devrais marche, je n'ai pas fait de test mais logiquement c'est bon.

24/02/2006, 21h36
Edoxituz

Merci beaucoup :wink:

Se script renvoie une erreur à la ligne 1, Fin d'instruction attendu.
24/02/2006, 21h38
Edoxituz

Au faite j'ai regarder votre profil pour prendre votre adresse msn, j'ai cliquer sur me bouton msn et je suis tomber sur mon profile msn, s'est normale ?
24/02/2006, 21h58
sovo

Citation:

Envoyé par Edoxituz

Se script renvoie une erreur à la ligne 1, Fin d'instruction attendu

Deja je ne fait pas du VBS, ce script est inspirer d'une logique. Mais essai de revoir ton code "avant et apres" le script, peut etre que tu n'as pas fait un truc que tu aurais du faire. Si possible donne nous le code et ceux qui s'y connaisse en VBS pouront te donner une reponse.

Citation:

Envoyé par Edoxituz

Au faite j'ai regarder votre profil pour prendre votre adresse msn, j'ai cliquer sur me bouton msn et je suis tomber sur mon profile msn, s'est normale ?

8O 8O :lol: :lol:

je viens d'essayer de me connecter (depuis un tres long moment deja), et il m'annonce que vu le fait que j'ai passer un long moment sans avoir avert mon compte alors il a ete fermer.

Alors il est tres fort probable que tu ais resuperer mon identifiant une fois qu'il a ete supprimer. Voila ca peut s'expliquer comme ca.

Ton compte msn n'a pas été suprimer mais juste désactiver.

Ben mon code s'est sa:

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
   dim i as integer 
   'Tout d'abord tu met le chemin de tes fichier dans un tableau. 
   dim FilePath(1 to 10) as string    'Ceci te permet d'avoir 10 fichiers mais tu peut redimensionner ton tableau avec l'instruction "ReDim" 
 
   FilePath(1)="C:\Program Files\ut\1" 
   FilePath(2)="C:\Program Files\ut\2" 
 
   'Et maintenant tu peut commencer a chercher tes fichiers 
 
   Set objFSO = CreateObject("Scripting.FileSystemObject") 
   i=0 
 
   'Premiere solution : avec le "while" 
   while i<=10 
         If objFSO.FolderExists(FilePath(i)) Then 
               Wscript.Echo "Le répertoire FilePath(i) exite." 
         Else 
               Wscript.Echo "Le répertoire FilePath(i) n'exite pas." 
         End If 
 
         i=i+1 
   wend 
 
   'Deuxieme solution: avec le "for" 
   for i=1 to 10 
         If objFSO.FolderExists(FilePath(i)) Then 
               Wscript.Echo "Le répertoire FilePath(i) exite." 
         Else 
               Wscript.Echo "Le répertoire FilePath(i) n'exite pas." 
         End If 
 
         i=i+1 
   next

24/02/2006, 22h25
sovo

beh la je ne voit pas trop le pb (comme je te l'ai dit je ne code pas en VBS). c'est tout bete, mais essai de remplacer le "10" (nombre de fichier que tu as) par le nombre exacte de fichier que tu as (dans ton exemple "2"). je croit que le probleme doit venir de la (mais pas sur).

Et puis oui, justement le compte a ete desactiver. mais comme je n compte plus l'activer, alors je prefere dire supprimer.
24/02/2006, 22h27
ouskel'n'or

Manque un exit for si c'est bon et peut-être même si c'est pas bon... Non ?

Juste une idée comme ça
24/02/2006, 22h31
sovo

je ne croit pas qu'un exit for soit necessaire vu qu'il veux afficher a l'ecran l'etat d'xistance des fichiers : le fichier existe ou le fichier n'existe pas.

je me dit plutot que le probleme viendrais peut etre du fait que je parcours 10 element du tabeau pourtant il n'y en a que 2 (suivant l'exemple). alors il ne va rien trouver comme chemin dans les 8 autres. Ca a l'air bete, mais c'est une idee.
24/02/2006, 22h42
Edoxituz

sovo >>> J'ai remplacer 10 par le nombre exat de fichier sa ne change rien.

ouskel'n'or >>> Bonjour, je ne sais pas ou mettre sa.
24/02/2006, 22h58
sovo
autre supposition (enfait erreur lors de l'ecriture du code).

a cette ligne
Code:

1 2 3 Set objFSO = CreateObject("Scripting.FileSystemObject") i=0
remplace "0" par "1", comme ceci.
Code:

1 2 3 Set objFSO = CreateObject("Scripting.FileSystemObject") i=1
24/02/2006, 23h09
ouskel'n'or

Sovo t'a répondu en te conseillant de mettre le nombre exact de fichier.
Tu n'as pas besoin de l'exit for dans ce cas là
Je cherche une idée... :cry:

A+

j'ai pas compris tous ce que tu voulais faire ... mais si tu ve qu'un seul IF ... tu peu utiliser le et : AND ///

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Var1= "C:\Program Files\ut\1"
Var2= "C:\Program Files\ut\2"
 
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
'
If  objFSO.FolderExists(Var1) and _ 
    objFSO.FolderExists(Var2 ) Then
Wscript.Echo "Les répertoires Var1  et var 2exite."
 
Else
Wscript.Echo "Au moins un des répertoire var1 et var2 n'existe pas !"
 
End If

25/02/2006, 12h25
ouskel'n'or

Citation:

j'ai pas compris tous ce que tu voulais faire ...

+1
25/02/2006, 13h06
Edoxituz

Bonjour sovo, et merci, j'ai remplacer 2 par 1, toujours pareille.

Bonjour ouskel'n'or et merci.

Bonjour bbil, et merci, ben se que je veut en faite s'est que le script indique quels répertoire existe et quel répertoire n'éxiste pas, votre code indique si au moin un répertoire n'existe pas mais ne dit pas le quel.
25/02/2006, 13h32
sovo

maintenant que je relis ton message d'erreur je remarque un truc :

Citation:

Envoyé par Gestionnaire d'erreur

erreur à la ligne 1, Fin d'instruction attendu.

Si ton code n'est que celui la, alors ton erreur vient de la declaration de la variable i [dim i as integer], vu que c'est la premiere ligne (comme le dit ton message d'erreur). Alors je te conseille de jregarder encore la declaration des variables en VBS, celle la doit etre insuffisante.
25/02/2006, 13h34
Edoxituz

Merci du tuyo je vais essayer de voir sa.
25/02/2006, 13h39
SfJ5Rpw8

Citation:

Envoyé par Edoxituz

Bonjour bbil, et merci, ben se que je veut en faite s'est que le script indique quels répertoire existe et quel répertoire n'éxiste pas, votre code indique si au moin un répertoire n'existe pas mais ne dit pas le quel.

Ben alors ils faut faire un test par répertoire...? d'ou ils sortent tes répertoires ...? une liste ...?
25/02/2006, 13h44
Edoxituz

Bonjour bbil, s'est pour créer un vbsqui va tester certaines applications pour voir si elle sont installer, j'aurai besoin d'un script qui liste les application installer dans un seul MsgBox, si s'est possible.
25/02/2006, 14h04
ouskel'n'or
Hello,

Déjà, tu as une erreur dans tes déclarations. J'ai modifié et là, l'exécution ne pose plus de pb... Rassure-toi, le problème est plus loin, il ne trouve pas les répertoires... mais déjà on va jusqu'au bout sans erreur...
Code:

1 2 dim i dim FilePath(10)
Pour les répertoires ? Je cherche...

A+

Voilà pour les répertoires

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
dim i   'Tout d'abord tu met le chemin de tes fichier dans un tableau. 
   dim FilePath(10) 'as string    'Ceci te permet d'avoir 10 fichiers mais tu peut redimensionner ton tableau avec l'instruction "ReDim preserve" si elle existe en vbs 
   FilePath(1)="D:\xls\" 
   FilePath(2)="C:\Program Files\"
   FilePath(3)="C:\Program Files\Microsoft Office\"
   FilePath(4)="C:\Program Files\Creative\"
   FilePath(5)="C:\Program Files\Microsoft Office\Office\"
   FilePath(6)="C:\Program Files\Microsoft Office\Office\Gestionnaire Office\"
   FilePath(7)="C:\WINDOWS\SYSTEM32\"
   FilePath(8)="C:\WINDOWS\SYSTEM\"
   FilePath(9)="C:\WINDOWS\Nimporte quoi\"
   FilePath(10)="C:\WINDOWS\Coucou\"
 
 
   'Et maintenant tu peut commencer a chercher tes fichiers 
 
   Set objFSO = CreateObject("Scripting.FileSystemObject") 
   i=1 
 
   'Premiere solution : avec le "while" 
   while i<=10 
         If objFSO.FolderExists(FilePath(i)) Then 
               Wscript.Echo "Le répertoire " & FilePath(i) & " exite." 
         Else 
               Wscript.Echo "Le répertoire " & FilePath(i) & " n'exite pas." 
         End If 
 
         i=i+1 
   wend

Tu dis

A+

25/02/2006, 14h25
Edoxituz

Merci beaucoup ouskel'n'or sa marche déjà beaucoup mieux, cepandant il reste un trcu, les résultat s'affiche dans des msgbox diférenet les un derière les autresn je voudrai que tout soit afficher dans un seul msgbox.

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
dim i   'Tout d'abord tu met le chemin de tes fichier dans un tableau. 
dim msg1, msg2
   dim FilePath(10) 'as string    'Ceci te permet d'avoir 10 fichiers mais tu peut redimensionner ton tableau avec l'instruction "ReDim" 
   FilePath(1)="D:\xls\" 
   FilePath(2)="C:\Program Files\"
   FilePath(3)="C:\Program Files\Microsoft Office\"
   FilePath(4)="C:\Program Files\Creative\"
   FilePath(5)="C:\Program Files\Microsoft Office\Office\"
   FilePath(6)="C:\Program Files\Microsoft Office\Office\Gestionnaire Office\"
   FilePath(7)="C:\WINDOWS\SYSTEM32\"
   FilePath(8)="C:\WINDOWS\SYSTEM\"
   FilePath(9)="C:\WINDOWS\Nimporte quoi\"
   FilePath(10)="C:\WINDOWS\Coucou\"
 
 
   'Et maintenant tu peut commencer a chercher tes fichiers 
 
   Set objFSO = CreateObject("Scripting.FileSystemObject") 
   i=1 
 
   while i<=10 
         If objFSO.FolderExists(FilePath(i)) Then 
               msg1 = msg1 & FilePath(i) & vbcrlf
         Else 
               msg2 = msg2 & FilePath(i) & vbcrlf
         End If 
 
         i=i+1 
   wend 
   Wscript.Echo "Les répertoires " & msg1 & " existent"
   Wscript.Echo "Les répertoires " & msg2 & " n'existent pas"

Tu dis

A+

25/02/2006, 14h38
Edoxituz

Dans le vbs vous dite que je peut redimentionné le tableau avec ReDim preserve, vous voulez dire que je peut le redimentionné dynamiquement ?
25/02/2006, 14h41
Edoxituz

Génial merci encore pour votre patience :wink:

Je vais peut être avoir l'aire un exigant mais se n'est pas possible que les répertoires existance soit lister dans le même msgbox que se qui n'éxiste pas ?

Dans le vbs vous dite que je peut redimentionné le tableau avec ReDim preserve, vous voulez dire que je peut le redimentionné dynamiquement ?
25/02/2006, 14h46
ouskel'n'or

En vba, Redim Tableau(i)
redimensionne un tableau mais les données précédentes sont perdues
Redim Preserve Tableau(i)
est fait pour redimensionner un tableau en dynamique à la valeur de i mais en conservant les données jusqu'à i-1
En VBS, faut faire l'essai...

Pour ton autre question, là je trouve que tu pousses un peu :wink:

Code:

Wscript.Echo "Les répertoires " & vbcrlf & msg1 & " existent" & vbcrlf & vbcrlf & "Les répertoires " & vbcrlf & msg2 & " n'existent pas"

Je pense qu'en faisant un minimum d'effort, tu aurais pu le trouver tout seul, non ? :evil:

D'autres questions ? :lol:

A+
25/02/2006, 14h51
Edoxituz

Merci merci beaucoup :wink:

Ben pour redimentioner le tablau je ne pense pas que se soit utile en faite j'ai supprimer les 3 dernier répertoire mais j'ai laisser dim FilePath(10) et le script fonctionne quand même.

Oui efectivement j'aurai du réfléchire un peut, j'aurai du y penssé même s'été tout bête :oops:
25/02/2006, 14h53
ouskel'n'or

J'ai une question pour toi : Si tu n'as qu'un répertoire existant ou qu'un répertoire n'existant pas, comment fais-tu pour mettre "exite" au singulier ou au pluriel ? Hein ?

A+ :lol:
25/02/2006, 14h58
Edoxituz

Justement se que je vien de faire:

Code:

Wscript.Echo "Le(s) répertoire(s) " & msg1 & " exist(ent)" & vbcrlf & "." & vbcrlf & "Le(s) répertoire(s) " & msg2 & " n'existe(nt) pas"
25/02/2006, 15h09
Edoxituz

Maitenant j'aimerai un peut amélioré se script, voila en faite se que je veut faire avec ce script s'est tester combien de version d'un même logiciel sont installer est donc quel sont les versions installer, il faudrai donc maintenant qu'a la place d'afficher le chemin des répertoire dans le MsgBox chaque chemin soit associé à un numéro le numèro de la version, je pensse q'il faut utiliser des variables mais je ne voie pas coment faire, n'auriez vous pas une piste ?
25/02/2006, 15h10
ouskel'n'or

Ah oui ? Hé bien tu as laissé une erreur, là

Citation:

Wscript.Echo "Le(s) répertoire(s) " & msg1 & " exist(ent)" & vbcrlf & "." & vbcrlf & "Le(s) répertoire(s) " & msg2 & " n'existe(nt) pas"

:lol:

A+

edit
Pour ta dernière question, tu devrais la poser sur le forum, celle-ci étant résolue :wink:

tiens j'ai modifié le code à oukel'nor .. pour te montrer un exemple d'utilisation de Redim... et l'utilisation de procédure/Fonctions pour organisation code...

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
 
dim FilePath() 'Tiens il sera redimensionable
 
 
AjtFichier Filepath,"D:\xls\"
AjtFichier Filepath,"C:\Program Files\"
AjtFichier Filepath,"C:\Program Files\Microsoft Office\"
AjtFichier Filepath,"C:\Program Files\Creative\"
AjtFichier Filepath,"C:\Program Files\Microsoft Office\Office\"
AjtFichier Filepath,"C:\Program Files\Microsoft Office\Office\Gestionnaire Office\"
AjtFichier Filepath,"C:\WINDOWS\SYSTEM32\"
AjtFichier Filepath,"C:\WINDOWS\SYSTEM\"
AjtFichier Filepath,"C:\WINDOWS\Nimporte quoi\"
AjtFichier Filepath,"C:\WINDOWS\Coucou\"
if  Not testfiles then
 Wscript.Echo "Erreur il Manque au moins un des répertoires "
 Wscript.Quit
end if
 
 Wscript.Echo "Tous les répertoires existent .. on continue le traitement"
 
 
'
' Procédure D'ajout répertoir dans tableau
'
Sub AjtFichier (FilePath, st)
 Dim i 'Nb Enreg
 On Error Resume next 'Pour eviter erreur si tableau vide
 i= ubound(filepath)
 
  redim preserve filepath(i+1)
   filePath(i) = st
end sub
'
' Procedure de test existance fichiers
'
Function testFiles
  Dim i
  Dim Msg
  Dim bErreur 'Passe à 1 si mqe un des répertoires
  bErreur = false
  Set objFSO = CreateObject("Scripting.FileSystemObject") 
  msg = " Résultat test répertoires : " & vbCrlf
  for  i = 0  to  ubound(filepath) -1
   If objFSO.FolderExists(filepath(i)) Then
      msg = msg &  filepath(i) & " => OK" & vbcrlf     
    else
     msg = msg &  filepath(i) & " => INEXISTANT" & vbcrlf     
     bErreur = true
   end if
  Next
  Wscript.Echo msg
  TestFiles=not bErreur 'Retour de la fonction
end Function

25/02/2006, 15h12
Edoxituz

ouskel'n'or merci pour la réctification :wink:

Maitenant j'aimerai un peut amélioré se script, voila en faite se que je veut faire avec ce script s'est tester combien de version d'un même logiciel sont installer est donc quel sont les versions installer, il faudrai donc maintenant qu'a la place d'afficher le chemin des répertoire dans le MsgBox chaque chemin soit associé à un numéro le numèro de la version, je pensse q'il faut utiliser des variables mais je ne voie pas coment faire, n'auriez vous pas une piste ?
25/02/2006, 15h14
Edoxituz

Merci beaucoup bbil :wink:
25/02/2006, 19h09
ouskel'n'or

Hello,

Je comprends ta question mais ce que je ne comprends pas c'est le lien avec la précédente. Tu listes des noms de répertoires pas des applis...

A+
25/02/2006, 19h17
Edoxituz

Bojour, ah bon j'ai donné un lien je ne m'en souvient pas, et je ne e retrouve pas dans le poste, s'été quoi se lien ?
25/02/2006, 20h18
sovo

Citation:

Envoyé par ouskel'n'or

dim i
dim FilePath(10)

je me disais bien que ce n'etait pas la meme declaration en VB et en VBS.

J'ai une question pour ouskel'n'or, je remarque que pour voir si une application existe tu va voir si le repertoire qui le contient existe. Bien pense, mais voila il y a certaine application qui apres etre desinstaller ne supprime pas le repertoire dans "program file". Dans ce cas je croit que si Edoxituz execute sont code pour cette application, il va lui dire que m'appli existe (car le repertoire existera) et pourtant ce sera faut.

Moi je proposerais plutot (afin d'eviter le probleme poser plus haut) qu'il fasse une recherche sur l'exe de cet application (exemple "c:\Program file microsoft office\...\winword.exe). La aumoins on est sur de l'existance ou de la nom existance du fichier "exe" et par ricochet de l'application. Qu'en penses tu ??