[tt]
*-------------------------------------------------------
* Function.: DiskType
* Abstract.: Returns a number indicating the type of the drive.
* Returns.: Number indicating the DriveType :
* 0 : DRIVE_UNKNOWN : The drive type cannot be determined.
* 1 : DRIVE_NO_ROOT_DIR : The root path is invalid. For example, no volume is mounted at the path.
* 2 : DRIVE_REMOVABLE : The disk can be removed from the drive.
* 3 : DRIVE_FIXED : The disk cannot be removed from the drive.
* 4 : DRIVE_REMOTE : The drive is a remote (network) drive.
* 5 : DRIVE_CDROM : The drive is a CD-ROM drive.
* 6 : DRIVE_RAMDISK : The drive is a RAM disk.
* Parameters..: RootPathName ("c:\"

, plWinApi - logical - If you want to use Win98/2000 Api functions
*-------------------------------------------------------
PARAMETERS pcRootPath , plWinApi
if para() < 1 .or. type("pcRootPath"

!= "C" .or. empty(pcRootPath)
pcRootPath = sys(5)
endif
if plWinApi
declare long GetDriveTypeA in "KERNEL32" as "APIGetDriveType" string nDrive
lnReturn = APIGetDriveType(pcRootPath)
else
set library to (home()+"FOXTOOLS.FLL"

lnReturn = DriveType(pcRootPath)
set library to
endif
RETURN lnReturn
[/tt]
David W. Grewe
Dave@internationalbid.com
ICQ VFP ActiveList #46145644