Include file ve Visual Basic Scriptu
V případě, že používáte Visual Basic Script pro nejrůznější drobné i robustnější aplikace, hodí se používat “knihovny”. Jenže oproti ASP v klasickém VB Scriptu neexistuje nativní includování souborů. Naštěstí existuje poměrně elegantní způsob, jak to zařídit pomocí procedury ExecuteGlobal, viz příklad procedury IncludeFile, která “přilinkuje” knihovnu:
sub IncludeFile(aFileName)
ExecuteGlobal LoadStringFromFile(aFileName)
end sub
ExecuteGlobal LoadStringFromFile(aFileName)
end sub
function LoadStringFromFile(aFilename)
Set fs = CreateObject("Scripting.FileSystemObject")
Set f=FS.OpenTextFile(aFileName,1,false,-2)
LoadStringFromFile=f.ReadAll
f.Close
Set f=Nothing
Set fs = Nothing
end function
Napsat komentář