VBScript Reference Manual for InduSoft Web Studio

VBScript Reference Manual InduSoft Web Studio
End Property
End Class
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
Set objFilePointer = Nothing ‘ Keyword Nothing releases the object memory
A couple notes on the example above. The CreateObject command is used to instantiate an Object
that is known at the system level (e.g. a COM object). Also, so far this example only shows how to
assign and retrieve property values. It is generally the Method(s) that control the action an object
performs, not the properties.
A Property can be made read-only by only providing a Property Get procedure, or by declaring the
Property Let procedure as Private instead of Public. A Property can be made write-only by only
providing the Property Let procedure, or by declaring the Property Get procedure as Private instead of
Public.
Class Methods are really just Functions and Subroutines inside of a Class block. These functions and
subroutines can be either Private or Public. If they are public, they will be accessible to a VBScript code
segment outside of the Class block by referencing the obj.Method. If they are private, they will only be
available to code within the Class block.
An example of Class Methods 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
Public Sub Delete ‘Method to delete the master file
master_FSO.DeleteFile (master_file)
End Sub
End Class
26 InduSoft, Ltd.