#INCLUDE "windows.inc"
#INCLUDE "scrrun.inc"
DIM fso AS IFileSystem
DIM pDrives AS IDriveCollection
DIM pDrive AS IDrive
' Create an instance of the FileSystemObject
fso = NEWCOM "Scripting.FileSystemObject"
' Get a reference to the IDrives collection
pDrives = fso.GetDrives
' Get a reference to the IDrive interface for the drive C
pDrive = pDrives.Item("C:")