19 lines
259 B
Plaintext
19 lines
259 B
Plaintext
Sub Include(file)
|
|
|
|
Dim fso, f
|
|
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
Set f = fso.OpenTextFile(file & ".vbs", 1)
|
|
|
|
str = f.ReadAll
|
|
|
|
f.Close
|
|
|
|
ExecuteGlobal str
|
|
|
|
End Sub
|
|
|
|
' Now call Include and then call Doit
|
|
Include "TestModule"
|
|
|
|
Doit |