Tester un fichier et quitter un script

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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:

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.

Bonjour,

Comme ça ?

Code:

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

19/09/2008, 13h57
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
19/09/2008, 14h20
pc75

Citation:

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 ?
19/09/2008, 14h28
yumyum

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

Merci

Lorsque pc75 te propose cela :
Code:

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:

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:

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.

19/09/2008, 15h01
yumyum

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.:cry:
19/09/2008, 15h18
pc75

Re,

On peut voir ton script corrigé ?

oui :

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
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.

19/09/2008, 16h12
pc75

Re,

Si je résume ton script :

Citation:

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

Ecriture du log

Donc, c'est normal que ton fichier log soit alimenté non ?
22/09/2008, 12h10
yumyum

Bonjour,

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

Merci !
22/09/2008, 12h35
pc75

Re,

Citation:

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.
23/09/2008, 12h00
yumyum

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.

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
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

23/09/2008, 13h32
pc75

Citation:

Envoyé par yumyum

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

Mais encore ?
23/09/2008, 15h47
yumyum

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
23/09/2008, 17h56
ced600

C'est la condition qui est fausse :

Code:

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:

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.
23/09/2008, 18h23
yumyum

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
24/09/2008, 10h09
ced600

ok je viens de voir pourquoi cela ne marche pas :

Code:

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:

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 !!!
25/09/2008, 14h49
yumyum

Bonjour,

Ben là je crée un raccourci sur le bureau non ? Tout fonctionne j'ai juste le problème avec les logs. Merci

Voir 40 message(s) de cette discussion en une page