Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

23 lines (19 sloc) 0.571 kB
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)
Next
End If
Set fso = Nothing
included = True
End If
End Sub
Jump to Line
Something went wrong with that request. Please try again.