Private Declare Function GetDriveType Lib  "kernel32"  Alias  "GetDriveTypeA"  (ByVal nDrive As String) As Long

Private Sub Form_Load()
  Dim I As Integer, D As String, Drv As Long,D() as string,J as integer
    For I =  0  To  25 
      D = Chr$(I +  65 ) &  ":\" 
      Drv = GetDriveType(D)
      Select Case Drv
      Case  2  ' Floppy
      Case 3 ' HDD
         j=j+ 1 
        d(j)=Left$(D,  2 )) ' в массив все имена жестких дисков
      Case 4 ' NetDisk
      Case  5  ' CD-ROM
      Case 6 ' RAMDisk
      End Select
    Next I
  

End Sub