VBScript Reference Manual for InduSoft Web Studio

InduSoft Web Studio VBScript Reference Manual
Property Size
Description: Returns the size of all the files and subfolders contained in the specified folder
Use: intSize = objFolder.Size
Arguments: objFolder
Required. The name of a Folder Object previously instantiated.
Return: The size of the specified folder
Remarks: Size is in bytes
Example: Dim fso, f, myFolder
Set fso = CreateObject(“Scripting.FileSystemObject”) ‘Instantiate the FSO object
myFolder = $getAppPath() ‘Specify the app directory
Set f = fso.GetFolder (myFolder)
MsgBox “Size = “ & f.Size & “ bytes” ‘Display size of app folder
Property SubFolders
Description: Returns a Folders collection consisting of all folders contained in a specified folder,
Use: objFC = objFolder.SubFolders
Arguments: objFolder
Required. The name of a Folder Object previously instantiated.
Return: A folders collection of all subfolders in a specified folder.
Remarks: Includes folders with hidden and system file attributes set.
Example: Dim fso, f, fc, s, myFolder
Set fso = CreateObject(“Scripting.FileSystemObject”) ‘Instantiate the FSO object
myFolder = $getAppPath() ‘Specify the app directory
Set f = fso.GetFolder (myFolder)
fc = f.Subfolders ‘Returns collection of (sub)folders
s = “”
For each f1 in fc
s = s & fc.name & vbCrLf
Next
MsgBox s
Property Type
Description: Returns information about the type of a folder.
Use: strType = objFolder.Type
Arguments: objFolder
Required. The name of a Folder Object previously instantiated.
Return: The type of folder.
Remarks: If the object is a folder, “Folder” will be returned.
Example: Dim fso, f, myFolder
Set fso = CreateObject(“Scripting.FileSystemObject”) ‘Instantiate the FSO object
myFolder = $getAppPath() ‘Specify the app directory
Set f = fso.GetFolder (myFolder)
MsgBox “Type = “ & f.Type ‘Displays “Folder”
InduSoft, Ltd. 243