; Sort out what is HARDRIVES and WHATS NOT.
Repeat
DriveLetter$=PeekS(MemID+(Counter)*4) ; Get actual system volume letter... "C:\" etc
Type=GetDriveType_(DriveLetter$) ; Check what type it is.
Value$=""
Select Type
Case 0 : ; "Unrecognized"
Case 1 : ; "No Root Exist"
Case 2 : ; Floppy Or Removable Drive"
Case 3 : NumOfDrives=NumOfDrives+1 : Temp$(NumOfDrives)=Driveletter$ ; Harddrive"
Case 5 : ; "Network Drive"
Case 5 : ; "CD-ROM Drive"
Case 6 : ; "RAM DISK Drive"
EndSelect
; Store the driveletter for further processing
Counter=Counter+1
Until Counter=28 ; We have scanned ALL drivers
; Now construct a string of the remaining allowed Harddrives with their info.
For a=1 To NumOfDrives
GetVolumeInformation_(temp$(a),@VolName$,255,@Serial,0,0,0,255)
temp1$=PeekS(@VolName$)
HD_Serial(a)=PeekL(@Serial)
temp2$="Volume: ["+Temp$(a)+"] - VolumeName: ["+Temp1$+"]"
VolumeName$(a)=temp1$
DriveInfo$(a)=temp2$
Debug hd_serial(a)
Next a