Discussion :

[micka180]

Bonjour,

Mon script doit se connecter sur des serveurs pour trouver un fichier et l'ouvrir afin de vérifier la présence d'une ligne de caractères à l'intérieur de celui ci, afin de remplir un fichier Excel.

Dans la partie du script que je vous envoi, je fais une requête qui va me sélectionner les fichiers à une certaine date.

Je voudrai qu'il y ait une condition qui dit que si il n'y a pas de fichiers à la date indiquée dans la requête aller à la ligne 129.
Et j’ai une erreur de syntaxe : (60, 19) Erreur de compilation Microsoft VBScript: Erreur de syntaxe

Code :

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

1
2
3
4
5
6
7
8
 
'colFiles contient les nom des serveurs
Set colFiles = objServices.ExecQuery _("SELECT * FROM CIM_DataFile WHERE Path='\\dossier1\\dossier2\\' and FileName like '%backup_" &tbdate(2)&tbdate(1)&tbdate(0)&"%'")' or FileName Like '%backup_" &tbdate2(2)&tbdate2(1)&tbdate2(0)&"%'")
'si le fichier à la date recherché n'est pas present passer à la suite la ligne129
If colFiles <> True Then
WScript.Echo "condition OK"
On Error GoTo 129
End if

[omen999]

salut,

Code :

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

On Error GoTo 129

ce n'est pas du vbs
la notion de ligne n'existe pas et le code doit donc être structuré...

[ced600]

Par contre :

Code :

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

On Error GoTo Erreur

C'est tout a fait correcte. Tu définis alors un label. En cas d'erreur, l'interpréteur du script se rendra directement à ce label s'il existe.
Je crois que tu l'utilises comme cela :

Code :

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

1
2
3
Erreur :
If machin <> True Then
....

[micka180]

Merci je test ca des maintenant

[micka180]

merci j'ai solutionné le pb de la maniere suivente sans passé par on error goto

Merci pour votre aide

Code :

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

1
2
3
4
5
6
7
Set colFiles = objServices.ExecQuery _("SELECT * FROM CIM_DataFile WHERE Path='\\Ltsm\\logs\\' and FileName like '%backup_" &tbdate(2)&tbdate(1)&tbdate(0)&"%'")' or FileName Like '%backup_" &tbdate2(2)&tbdate2(1)&tbdate2(0)&"%'")
'si le fichier à la date recherché n'est pas present passer à la suite
 
WScript.Echo file
If colFiles.count = 0 Then
l = l + 1
End if

[ced600]

Oui non, tu ne solutionnes pas vraiment le problème.
On Error GoTo est utilisé, comme On Error Resume Next, pour la gestion des erreurs sous VBS.
Sans passé, ce que tu viens de faire, signifie que tu ne gères pas les erreurs. Dans ce cas là en cas de problème, une exception sauteras à la figure de l'utilisateur du script.
C'est peut être ce que tu souhaites, mais je t'expliques cela car je n'ai pas l'impression que tu as vraiment compris à quoi cela servais. Peut être un bout de script récupéré sur le net ?

[micka180]

il est vrai que je n'avais pas compris l'utilité de on error goto.
mais les conditions d'utilisation du script me permete de ne pas comptabilisé l'absance de fichier à la date demandée comme une herreur.

Merci pour les explications