VBScript Reference Manual for InduSoft Web Studio

InduSoft Web Studio VBScript Reference Manual
Property IsReady
Description: Indicates whether the specified drive is ready or not
Use: boolReady = objDrive.IsReady
Arguments: objDrive
Required. The name of a Drive Object previously instantiated.
Return: Returns True if the specified drive is ready; False if it is not.
Remarks: Read only.
Example: Dim fso, d, s
Set fso = CreateObject(“Scripting.FileSystemObject”) ‘Instantiate the FSO object
Set d = fso.GetDrive(fso.GetDriveName(“c:”)
s = “Drive “ & d.DriveLetter
If d.IsReady Then
s = s & " Drive is Ready."
Else
s = s & " Drive is not Ready."
End If
MsgBox s
Property Path
Description: Returns the path for a specified drive.
Use: strPath = objDrive.Path
Arguments: objDrive
Required. The name of a Drive Object previously instantiated.
Return: The path for a specified drive
Remarks: For drive letters, the root drive is not included. For example, the path for the C drive is C:, not C:\.
Example: Dim fso, d
Set fso = CreateObject(“Scripting.FileSystemObject”) ‘Instantiate the FSO object
Set d = fso.GetDrive(fso.GetDriveName(“c:”))
MsgBox “Path = “ & UCase(d.Path) ‘Returns c:
Property RootFolder
Description: Returns a Folder object representing the root folder of a specified drive.
Use: objFolder = objDrive.RootFolder
Arguments: objDrive
Required. The name of a Drive Object previously instantiated.
Return: The path for a specified drive
Remarks: Read-only. All the files and folders contained on the drive can be accessed using the returned
Folder object.
Example: Dim fso, d
Set fso = CreateObject(“Scripting.FileSystemObject”) ‘Instantiate the FSO object
Set d = fso.GetDrive(“c:”)
MsgBox “RootFolder = “ & d.RootFolder ‘Returns “c:\”
Property SerialNumber
Description: Returns the decimal serial number used to uniquely identify a disk volume.
Use: intSerNum = objDrive.SerialNumber
Arguments: objDrive
Required. The name of a Drive Object previously instantiated.
Return: A decimal serial number that uniquely identifies a disk volume
Remarks: Read-only. You can use the SerialNumber property to ensure that the correct disk is inserted in
a drive with removable media.
Example: Dim fso, d
Set fso = CreateObject(“Scripting.FileSystemObject”) ‘Instantiate the FSO object
Set d = fso.GetDrive(“c:”)
MsgBox “Drive Serial Number = “ & d.SerialNumber ‘Returns “c:\”
InduSoft, Ltd. 235