Drive in Basic

'This uses a Kernel32 API to list all valid drives on your PC, and shows the drive types.  Even shows correct when I have a thumb drive attached.

'- Dav


Code:

'=============
'GETDRIVES.BAS
'=============
'Uses Kernel32 API to lists all available drives on system.
'Shows the drives type: HD/CD/DVD/RAM/NET/Removable/Unknown
'Coded by Dav SEP/2011

DECLARE LIBRARY '== Kernel32 API
    FUNCTION GetDriveTypeA (nDrive AS STRING)
END DECLARE

PRINT "============"
PRINT "VALID DRIVES"
PRINT "============"

'== Step through letters A -Z

FOR A = 65 TO 90
    Drive$ = CHR$(A)
    Result = GetDriveTypeA(Drive$ + ":\")
    SELECT CASE Result
        CASE 0: PRINT Drive$; ": "; "Unknown Drive Type"
        CASE 2: PRINT Drive$; ": "; "Removable Drive"
        CASE 3: PRINT Drive$; ": "; "Hard Drive"
        CASE 4: PRINT Drive$; ": "; "Network Drive"
        CASE 5: PRINT Drive$; ": "; "CD/DVD Drive"
        CASE 6: PRINT Drive$; ": "; "RAM Drive"
    END SELECT
NEXT
 

DECLARE LIBRARY
    FUNCTION GetVersion ()
END DECLARE

'Just grab the "build" number...
b$ = LTRIM$(RTRIM$(STR$((GetVersion AND &HFFFF0000) \ &H10000)))


PRINT "The Windows version is: ";
PRINT
PRINT b$


IF INSTR(1, b$, "095") THEN PRINT "Windows 95"
IF INSTR(1, b$, "1111") THEN PRINT "Windows 95"
IF INSTR(1, b$, "1381") THEN PRINT "Windows NT"
IF INSTR(1, b$, "1998") THEN PRINT "Windows 98"
IF INSTR(1, b$, "2222") THEN PRINT "Windows 98 SE"
IF INSTR(1, b$, "3000") THEN PRINT "Windows ME"
IF INSTR(1, b$, "2195") THEN PRINT "Windows 2000"
IF INSTR(1, b$, "2600") THEN PRINT "Windows XP"
IF INSTR(1, b$, "3790") THEN PRINT "Windows Server 2003"
IF INSTR(1, b$, "6000") THEN PRINT "Windows Vista/Server"
IF INSTR(1, b$, "6001") THEN PRINT "Windows Vista/Server"
IF INSTR(1, b$, "6002") THEN PRINT "Windows Vista/Server"
IF INSTR(1, b$, "7600") THEN PRINT "Windows 7"
IF INSTR(1, b$, "7601") THEN PRINT "Windows 7 32 Bit"