IFolder.Drive Property

[José Roca]

The following example illustrates the use of the Drive property with an IFolder object:

Code Select Expand


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

DIM fso AS IFileSystem
DIM pFolder AS IFolder
DIM pDrive AS IDrive

' Create an instance of the FileSystemObject
fso = NEWCOM "Scripting.FileSystemObject"
' Get a reference to the IFolder interface
pFolder = fso.GetFolder(UCODE$("C:\MyFolder"))
' Get a reference to the IDrive interface
pDrive = pFolder.Drive
' Get and display the drive letter
STDOUT "Drive: " & ACODE$(pDrive.DriveLetter)