Discussion :

[luciobello]

Bonjour.

Code pour appeler des fonctions communes d'un fichier vbscript :

' Import Framework Functions
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim rvbFILE
Set rvbFile = objFSO.OpenTextFile("FrameworkFunctions.vbs", 1)

Execute rvbFILE.ReadAll()
rvbFile.Close()

****
Ce code fonctionnait depuis des mois. environnement windows 10.
Vendredi, je le lance sur 2 postes différents, j'ai une erreur d'exécution :

Popup Windows Script Host
Error : Expected statement
Code 800A0400
Source Microsoft VBScript compilation error

Je suis dégouté.
Windows n'est plus censé mettre à jour VBScript depuis des années.. et là; une mise à jour ne permet plus de faire tourner une commande Execute
Toute ma solution est bloquéée. Je ne connais pas d'autre moyen d'appeler des fonctions dans un autre fichier.

Que faire ?

[hackoofr]

L'erreur que vous rencontrez ("Expected statement", Code 800A0400) indique généralement une syntaxe incorrecte ou un problème lors de l'exécution du fichier VBScript.
Il est possible que le fichier "FrameworkFunctions.vbs" contienne une erreur de syntaxe, ou que le code lui-même ait été altéré d'une manière ou d'une autre.
Pouvez-vous nous poster le contenu du fichier FrameworkFunctions.vbs

[luciobello]

L'erreur que vous rencontrez ("Expected statement", Code 800A0400) indique généralement une syntaxe incorrecte ou un problème lors de l'exécution du fichier VBScript.
Il est possible que le fichier "FrameworkFunctions.vbs" contienne une erreur de syntaxe, ou que le code lui-même ait été altéré d'une manière ou d'une autre.
Pouvez-vous nous poster le contenu du fichier FrameworkFunctions.vbs

Bonjour.
D'accord. Merci.
Le fichier framework fait +500 lignes. Et je peux clairement pas le divulguer par sécurité.
Donc, je vais déjà le compiler et l'analyser. ça me redonne espoir !

[luciobello]

L'erreur que vous rencontrez ("Expected statement", Code 800A0400) indique généralement une syntaxe incorrecte ou un problème lors de l'exécution du fichier VBScript.
Il est possible que le fichier "FrameworkFunctions.vbs" contienne une erreur de syntaxe, ou que le code lui-même ait été altéré d'une manière ou d'une autre.
Pouvez-vous nous poster le contenu du fichier FrameworkFunctions.vbs

Bon bin voilà ! Y avait des coquilles dans le fichier appelé; des fonctions encore jamais appelées; bon c'est logique, ça soit pas parfait d'entrée.
J'ai tout corrigé. C'était des broutilles. Et PAF ça retourne ! Donc c'était bien des syntax error dans le fichier appelé. Merci. Quel soulagement !
Mais sérieux le message d'erreur trompeur "file not found" rien à voir quoi
Ce qui m'a trompé c'est que sur le nouveau poste, je suis à poil, sans compilateur, avec notepadd++.
Execute n'est pas reconnu comme fonction VB Alors que sur mon ancien poste tout équipe, bin si.
Du coup, je me suis dit, M.... ils ont du désactiver pour raison de sécurité.. bref je me suis bien mis les boules pour rien