VBScript Reference Manual for InduSoft Web Studio

InduSoft Web Studio VBScript Reference Manual
Rem Below is the VBScript code
Dim objFSO ‘ Declare variables and objects
Dim objFilePointer, cur_file
Set objFSO = CreateObject(“Scripting.FileSystemObject”) ‘ Instantiate the COM object
Set objFilePointer = New FileSpec ‘ Instantiate the Class Object
objFilePointer.FileName = “Myfile.mdb” ‘ Assigns “Myfile.mdb” as the file name
cur_file = objFilePointer.FileName ‘ Retrieves the current file name “Myfile.MDB”
Set objFilePointer.FSO = objFSO ‘ Assigns an Object to the Property
objFilePointer.Delete ‘ Executes a Method to delete a file
Set objFilePointer = Nothing ‘ Keyword Nothing releases the object memory
VBScript Class Objects automatically supports two type of Class Events; Class_Initialize and
Class_Terminate Events. The code inside the Class_Initialize event executes once when an Object
based on the Class is first instantiated. Any code put in this event is optional, and is typically used for
initialization. Code inside the Class_Terminate event executes once just before the Object based on the
Class is destroyed (i.e. Set to Nothing, or the Object goes out of scope). Usage is as follows:
Class FileSpec
Private master_file
Private master_FSO Private master_file
Private Sub Class_Initialize ‘ Class Object initialization code
‘ code goes here
End Sub
Private Sub Class_Terminate ‘ Class Object termination code
‘ code goes here
End Sub
Public Property Let FileName(strName) ‘ Define a Public Property to assign the file name
master_file = strName
End Property
Public Property Get FileName ‘ Define a Public Property to retrieve a file name
FileName = master_file
End Property
Public Property Set FSO(m_FSO) ‘ Define a Public Property for an object
Set master_FSO = m_FSO
End Property
End Class
InduSoft, Ltd. 27