I really need to review the help file more. I was not even aware that the DriveType() function even existed. Thanks.

>Hi Greg,
>
>It's simpler with VFP DRIVETYPE() functin Re: Determine Available Drives Message #841080
>
>>This returns a string of drives letters and the type of drives they are.
>>
>>

>>    PROCEDURE DriveListing
>>        * Constants for drive types.
>>        #DEFINE DRIVE_UNKNOWN 0
>>        #DEFINE DRIVE_NO_ROOT_DIR 1
>>        #DEFINE DRIVE_REMOVABLE 2
>>        #DEFINE DRIVE_FIXED 3
>>        #DEFINE DRIVE_REMOTE 4
>>        #DEFINE DRIVE_CDROM 5
>>        #DEFINE DRIVE_RAMDISK 6
>>        *#DEFINE CR CHR(13)
>>
>>        DECLARE INTEGER GetLogicalDrives IN Win32API
>>        DECLARE INTEGER GetDriveType IN Win32API STRING RootPath
>>
>>        PRIVATE lcDrivestring, lcDriveRoot, liDrivelist, lcDrives, i
>>        lcDrives = ""
>>
>>        liDrivelist = GetLogicalDrives()
>>
>>        * Check each of the bits
>>        FOR i = 0 TO 31
>>            IF BITTEST(liDrivelist, i)
>>                * If the 0th bit is ON, that means drive 'A:',
>>                * the 2nd bit is 'C:", etc.
>>                lcDriveRoot = CHR(65 + i) + ":\"
>>                * Perform a GetDriveType to determine if it is a floppy, CD, etc.
>>                lcDrivetype = GetDriveType(lcDriveRoot)
>>                DO CASE
>>                    CASE lcDrivetype = DRIVE_UNKNOWN
>>                        lcDrivestring = "Cannot be determined"
>>                    CASE lcDrivetype = DRIVE_NO_ROOT_DIR
>>                        lcDrivestring = "Root directory does not exist"
>>                    CASE lcDrivetype = DRIVE_REMOVABLE
>>                        lcDrivestring = "Floppy/removable drive"
>>                    CASE lcDrivetype = DRIVE_FIXED
>>                        lcDrivestring = "Hard drive/nonremovable drive"
>>                    CASE lcDrivetype = DRIVE_REMOTE
>>                        lcDrivestring = "Remote/Network drive"
>>                        lcunc=THIS.GetUNCForDriveLetter(LEFT(lcDriveRoot,2))
>>                        IF TYPE('lcunc')="C" .AND. !EMPTY(lcunc)
>>                            lcDrivestring = lcunc
>>                        ENDIF
>>                    CASE lcDrivetype = DRIVE_CDROM
>>                        lcDrivestring = "CD-ROM drive"
>>                    CASE lcDrivetype = DRIVE_RAMDISK
>>                        lcDrivestring = "RAM disk"
>>                ENDCASE
>>                lcDrives = lcDrives + lcDriveRoot + " " + lcDrivestring + chr(13)+chr(10)
>>            ENDIF
>>        NEXT
>>
>>        *=MESSAGEBOX(lcDrives, 0 + 64 + 0,'All Drives Listing')
>>        RETURN lcDrives
>>        RETURN
>>
>>    ENDPROC
>>
>>