vbscript include function

DeekGeek () — Thu, 29 Jun 2006 20:12:18 GMT

This is a vbscript include function, useful for reusing files in a file library. Honestly, I don't remember where I found this, so if you know, post the attribution in a comment, please.



' VBScript "Include" routine

Sub Include(sInstFile)

	On Error Resume Next



	Dim oFSO, f, s



	Set oFSO = CreateObject("Scripting.FileSystemObject")

	If oFSO.FileExists(sInstFile) Then

		Set f = oFSO.OpenTextFile(sInstFile)

		s = f.ReadAll

		f.Close

		ExecuteGlobal s

	End If



	Set oFSO = Nothing

	Set f = Nothing

End Sub

DZone Snippets: Deekgeek's Code Snippets

vbscript include function