Tester un fichier et quitter un script

**yumyum** · 19/09/2008, 10h12

Bonjour,

Je débute en vbs, j'ai crée un script qui copie un raccourci d'une base notes sous \All Users\Bureau. Jusqu'ici tout va bien ça fonctionne. Maintenant j'aimerai tester la présence de l'icône et si elle est déjà là quitter le script (pour éviter de le relancer à chaque ouverture de session)...Je bloque, j'utilise :

Code :

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

1
2
3
4
Dim oFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\Documents and Settings\All Users\Bureau\.ico") Then
end if

Mais après ? Je quitte le script (sans pop up) comment ? Je place "If objFSO.FileExists"...en début de script ? suis perdu........

Mon script :

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
Dim Shell, DesktopPath, URL, WshNetwork
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("AllUsersDesktop")
Set URL = Shell.CreateShortcut(DesktopPath & "\.lnk")
URL.TargetPath = "C:\Program Files\Mozilla Firefox\Firefox.exe"
URL.arguments="http://"
URL.IconLocation = ":\, 0"
URL.WorkingDirectory = "C:\Program Files\Mozilla Firefox"
URL.Save
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objFileSuccess = objFSO.OpenTextFile("", ForAppending, True)
Tcomputer = WshNetwork.ComputerName
ObjFileSuccess.WriteLine " " & Tcomputer &" le " & date &" à " & time

Si vous avez une idée je suis preneur........Merci.

**pc75** · 19/09/2008, 11h31

Bonjour,

Comme ça ?

Code :

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

1
2
3
4
 
If objFSO.FileExists("C:\Documents and Settings\All Users\Bureau\.ico") Then
   WScript.Quit()
end if

**yumyum** · 19/09/2008, 13h57

Re,

Non ça marche pas il me jette avec un message d'erreur d'exécution VBScript Objet requis:", Code 800A01A8. Je teste.......

Merci

**pc75** · 19/09/2008, 14h20

Envoyé par yumyum

Re,

Non ça marche pas il me jette avec un message d'erreur d'exécution VBScript Objet requis:", Code 800A01A8. Je teste.......

Merci

Re,

Sur quelle ligne l'erreur ?

**yumyum** · 19/09/2008, 14h28

ligne: 2 Caract: 1, visiblement ça correspond à : If objFSO.FileExists("C:\Documents and Settings\All Users\Bureau\.ico") Then

Merci

**ced600** · 19/09/2008, 14h37

Lorsque pc75 te propose cela :

Code :

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

1
2
3
If objFSO.FileExists("C:\Documents and Settings\All Users\Bureau\.ico") Then
   WScript.Quit()
end if

Il te propose de façon sous entendu :

Code :

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

1
2
3
4
Dim oFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")If objFSO.FileExists("C:\Documents and Settings\All Users\Bureau\.ico") Then
   WScript.Quit()
end if

Moi je te propose autre chose :

Code :

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

1
2
3
4
5
6
Dim Shell, DesktopPath, URL, WshNetwork
Dim oFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
If Not objFSO.FileExists("C:\Documents and Settings\All Users\Bureau\.ico") Then
   'le reste du script
end if

Ainsi tu ne feras le script que si le fichier n'existe pas

La solution de pc75 est correcte aussi. Nos deux solutions sont équivalentes.
Cela dépend jsute de ce que tu préfères.

**yumyum** · 19/09/2008, 15h01

Ok, j'ai plus de message d'erreur (avec les deux solutions). Par contre le script s'exécute quand même car le pc remonte dans les logs. Rahhhhhhhhhhhhhhhh.

**pc75** · 19/09/2008, 15h18

Re,

On peut voir ton script corrigé ?

**yumyum** · 19/09/2008, 15h29

oui :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Dim Shell, DesktopPath, URL, WshNetwork, objFSO
 
Dim oFSO
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
If Not objFSO.FileExists("C:\Documents and Settings\All Users\Bureau\.ico") Then
 
Set Shell = CreateObject("WScript.Shell")
 
DesktopPath = Shell.SpecialFolders("AllUsersDesktop")
 
Set URL = Shell.CreateShortcut(DesktopPath & "\Conges.lnk")
 
URL.TargetPath = "C:\Program Files\Mozilla Firefox\Firefox.exe"
 
URL.arguments=""
 
URL.IconLocation = ", 0"
 
URL.WorkingDirectory = "C:\Program Files\Mozilla Firefox"
 
URL.Save
 
end if 
 
'Fichier Log
 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
Set WshNetwork = WScript.CreateObject("WScript.Network")
 
Set objFileSuccess = objFSO.OpenTextFile("", ForAppending, True)
Tcomputer = WshNetwork.ComputerName
 
objFileSuccess.WriteLine "ok" & Tcomputer &" le " & date &" à " & time

C'est surement une misérable érreur vui que je débute.......merci pour tout.

**pc75** · 19/09/2008, 16h12

Re,

Si je résume ton script :

Si ico n'existe pas
=> création
Fin si

Ecriture du log

Donc, c'est normal que ton fichier log soit alimenté non ?

**yumyum** · 22/09/2008, 12h10

Bonjour,

Normalement si l'icône existe le script devrait s'arrêter et rien mettre dans le fichier log. Non ?

Merci !

**pc75** · 22/09/2008, 12h35

Re,

Envoyé par yumyum

Bonjour,

Normalement si l'icône existe le script devrait s'arrêter et rien mettre dans le fichier log. Non ?

Merci !

Vu ton script, l'écriture du log se fait dans tous les cas, puisque l'écriture est en dehors de ton if.

**yumyum** · 23/09/2008, 12h00

Re,

Pour sauter l'écriture du log si l'icône est déjà présente sur le bureau utilisateur, je fais comment ? Si je place mon end if à la fin de mon script ça marche pas.....Merci et désolé pour le dérangement.

**ced600** · 23/09/2008, 12h29

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
18
19
20
21
22
23
24
25
Dim Shell, DesktopPath, URL, WshNetwork, objFSO
Dim oFSO
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
'Si l'icône n'existe pas.
If Not objFSO.FileExists("C:\Documents and Settings\All Users\Bureau\.ico") Then
 
  'Création de l'icône
   Set Shell = CreateObject("WScript.Shell")
   DesktopPath = Shell.SpecialFolders("AllUsersDesktop")
   Set URL = Shell.CreateShortcut(DesktopPath & "\Conges.lnk")
   URL.TargetPath = "C:\Program Files\Mozilla Firefox\Firefox.exe"
   URL.arguments=""
   URL.IconLocation = ", 0"
   URL.WorkingDirectory = "C:\Program Files\Mozilla Firefox"
   URL.Save
 
  'Fichier Log
   Set WshNetwork = WScript.CreateObject("WScript.Network")
   Set objFileSuccess = objFSO.OpenTextFile("", ForAppending, True)
   Tcomputer = WshNetwork.ComputerName
   objFileSuccess.WriteLine "ok" & Tcomputer &" le " & date &" à " & time
 
End If

**pc75** · 23/09/2008, 13h32

Envoyé par yumyum

Si je place mon end if à la fin de mon script ça marche pas.....

Mais encore ?

**yumyum** · 23/09/2008, 15h47

Re,

Le truc c'est que là, même avec l'icône présente sur le bureau, le script continue à écrire dans le fichier log. C'est ça qui marche pas. Même avec le end if à la fin du script.

Merci

**ced600** · 23/09/2008, 17h56

C'est la condition qui est fausse :

Code :

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

If Not objFSO.FileExists("C:\Documents and Settings\All Users\Bureau\.ico")

Comem il y a des espace dans le chemin il faut faire :

Code :

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

If Not objFSO.FileExists("""C:\Documents and Settings\All Users\Bureau\.ico""")

Ensuite j'espère que entre \ et .ico tu as mis un nom d'icone, et que tu l'as enlevé juste pour pouvoir poster le code sur le forum.

**yumyum** · 23/09/2008, 18h23

Non je suis désolé mais même avec les modifications c'est toujours pareil...je suis maudit avec le VBS, je vais retourner au .cmd
Merci

**ced600** · 24/09/2008, 10h09

ok je viens de voir pourquoi cela ne marche pas :

Code :

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

Set URL = Shell.CreateShortcut(DesktopPath & "\Conges.lnk")

Dis moi tu penses faire quoi là ?

Je te met en parallèle la ligne du test :

Code :

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

objFSO.FileExists("C:\Documents and Settings\All Users\Bureau\.ico")

Normalement l'erreur devrait te sauter aux yeux.

Après cela, vérifie aussi que le chemin C:\Documents and Settings\All Users\Bureau est correcte. En effet, dès fois c'est Desktop à la place de Bureau, même sur les versions française de windows !!!