J'avais voulu faire ça pour un script à modules, j'ai utilisé cette fonction pour faire un include de vbs :
Code :
- Sub Include(sInstFile)
- Dim oFSO, f, s
- Set oFSO = CreateObject("Scripting.FileSystemObject" )
- If oFSO.FileExists(sInstFile) Then
- Set f = oFSO.OpenTextFile(sInstFile)
- s = f.ReadAll
- f.Close
- ExecuteGlobal s
- End If
- Set oFSO = Nothing
- Set f = Nothing
- End Sub
|
Ca marche très bien dans mon cas, a tester avec un vbs contenant des functions mais ya pas de raisons...