VBScript Reference Manual for InduSoft Web Studio

VBScript Reference Manual InduSoft Web Studio
Return: The drive name for a specified key.
Remarks: Read only. This is a function more commonly used with the VBScript dictionary object.
(Scripting.Dictionary). The “Item” is similar to a numerical-based index in an array, except that an
Item can be character based and it must be unique.
Example: Dim fso, dc, myItem
Set fso = CreateObject(“Scripting.FileSystemObject”) ‘Instantiate the FSO object
Set dc = fso.Drives ‘Instantiate the Drives collection object
myItem = dc.Item (“c”)
MsgBox myItem ‘Displays “c:”
Folders Collection
FSO Method GetFolder
Description: Returns a Folder object corresponding to the folder in a specified path
Use: objFolder = fso.GetFolder(folderspec)
Arguments: fso
Required. The name of a FileSystemObject object previously instantiated
folderspec
Required. The folderspec is the path (absolute or relative) to a specific folder.
Return: Returns a folder object
Remarks: Since this method creates an object, you need to use it with the Set command. An error occurs if
the specified folder does not exist.
Example: Dim fso, drvPath, f, fc, nf
Set fso = CreateObject("Scripting.FileSystemObject")
drvPath = $getAppPath()
Set f = fso.GetFolder(drvPath) ‘Instantiate the parent folder object
Set fc = f.SubFolders ‘Return the subfolder Folders collection
s = “”
For Each x in fc
s = s & x.Name & vbCrLf ‘Iterate through the Folders collection object
Next
MsgBox s ‘Displays a list of subfolders in the App directory
Property Count
Description: Returns the number of items in a collection. Read only.
Use: intCount = objFolders.Count
Arguments: objFolders
Required. The name of a Folders Collection previously instantiated.
Return: The number of items in a collection.
Remarks: Read only.
Example: Dim drvPath, fso, fc, f, numf
Set fso = CreateObject(“Scripting.FileSystemObject”) ‘Instantiate the FSO object
drvPath = $getAppPath()
Set f = fso.GetFolder(drvPath) ‘Instantiate the parent folder object
Set fc = f.SubFolders ‘Return the subfolder Folders collection
numf = fc.Count
MsgBox “There are “ & numf & “ subfolders”
Property Item
Description: Returns an item (a Drive Name) based on the specified key.
Use: strName = objFolders.Item(key)
Arguments: objFolders
Required. The name of a Folders Collection.
key
Required. The key is associated with the item being retrieved.
Return: The drive name for a specified key.
230 InduSoft, Ltd.