Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
23 lines (19 sloc) 571 Bytes
const module_name = "VBS-SQL-Helper" 'this name must be unique !!!
const module_ver = "0.1" 'version
Dim included
Call Include
Sub Include
If (Not included) Then
Dim libPath, fso, fld, f
libPath = modulePath() & "lib\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(libPath)
If fld.Files.Count <> 0 Then
For Each f In fld.Files
Call ExecuteGlobal(fso.OpenTextFile(libPath & f.Name, 1).ReadAll)
End If
Set fso = Nothing
included = True
End If
End Sub
Jump to Line
Something went wrong with that request. Please try again.