Include code from other VBS files?

[jasonp45]

I am running some VBScripts locally on an XP machine, not as part of a web project.

In an effort to modularize & re-use some of my common functions/operations I'd like to call external VBS files. Something like:

Option Explicit
IncludeFile("C:\cDate_Operations.vbs")
Set oDate_Ops = New cDate_Operations
MsgBox oDate_Ops.CurrentDate_YYYY_Mmm_DD

Private Sub IncludeFile (ByVal FileName)
Const ForReading = 1
Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim f: set f = oFSO.OpenTextFile(FileName, ForReading)
Dim s: s = f.ReadAll()
'***This line doesn't work!:
Set cDate_Operations = Eval(s)
End Sub


Anyone know how to do this? Thanks!

 

[dm4ever]

Rather than Eval have you tried ExecuteGlobal ?

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[jasonp45]

Yes that was actually the first thing I tried, after finding a description of that here.

But that didn't work either. I think I'm implementing it incorrectly somehow.

 

[jasonp45]

Never mind - I figured it out. I screwed up the class I was calling in the other file!

This does indeed work:

IncludeFile("C:\cDate_Operations.vbs")
Set oDate_Ops = New Date_Operations
MsgBox oDate_Ops.CurrentDate_YYYY_Mmm_DD

Private Sub IncludeFile (ByVal FileName)
   Const ForReading = 1
   Set oFSO = CreateObject("Scripting.FileSystemObject")   
   Dim f: set f = oFSO.OpenTextFile(FileName, ForReading)
   Dim s: s = f.ReadAll()
   MsgBox s
   ExecuteGlobal s
End Sub

 

[dilettante]

Look at using .WSF files. Naked .VBS files went out of style back around 1999. ;-)

faq329-3419