Anlage des Repos
This commit is contained in:
19
examples/VBS/Load-VBScriptModule.vbs
Normal file
19
examples/VBS/Load-VBScriptModule.vbs
Normal file
@@ -0,0 +1,19 @@
|
||||
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
|
||||
Reference in New Issue
Block a user