Text only | Text with Images

PowerBasic Museum 2020-A

Legacy Software (PBWIN 9.0+/PBCC 5.0+) => Windows Script Runtime => Source Code => Scripting => FileSystemObject => Topic started by: José Roca on July 14, 2008, 03:53:38 AM

Title: IFile.Drive Property
Post by: José Roca on July 14, 2008, 03:53:38 AM


The following code illustrates the use of the Drive property:

Code Select

#INCLUDE "windows.inc"
#INCLUDE "scrrun.inc"

DIM fso AS IFileSystem
DIM pFile AS IFile
DIM pDrive AS IDrive

' Create an instance of the FileSystemObject
fso = NEWCOM "Scripting.FileSystemObject"
' Get a reference to the IFile interface
pFile = fso.GetFile(UCODE$("C:\MyPath\MyFile.txt"))
' Get a reference to the IDrive interface
pDrive = pFile.Drive
' Get and display the drive letter
STDOUT "Drive: " & ACODE$(pDrive.DriveLetter)

Text only | Text with Images