Pourquoi ne VBScript dire “Caractère Invalide” lors de l'utilisation de ExecuteGlobal pour importer un .vbs fonction fichier de bibliothèque?

Je suis de la rencontre d'un "Caractère Invalide" erreur dans mon VBscript! En particulier, au sein de ce bloc de code:

'*******************************************************************
'Import Code
'by Cheyne Wallace
'November 2008

'When using only VBscript (not QTP), this code will import any function library passed into it.
'Copy this function into a file, then use it to bring in various other function libraries.
'Usage:
'   Import "Library.vbs"

Sub Import(strFile)
    Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
    Dim wss : Set wss = CreateObject("WScript.Shell")
    strFile = wss.ExpandEnvironmentStrings(strFile)
    strFile = objFSO.GetAbsolutePathName(strFile)
    Set objFile = objFSO.OpenTextFile(strFile, 1)
    ExecuteGlobal objFile.ReadAll
    objFile.Close : Set objFSO = nothing
    Set wss = Nothing
End Sub

Les états d'erreur "Microsoft VBScript compilation error. Invalid Character. Code: 800A0408" sur Char: 2, Ligne 206 qui est la première lettre sur ExecuteGlobal objFile.ReadAll (caractère 1 est un onglet).

J'ai tapé et retapé la ligne, aussi bien que l'environnement des sauts de ligne. Pourtant, il arrête pas de dire "caractère Invalide'. Ce qui se passe??

OriginalL'auteur Eptin | 2012-12-21