; 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