Here's a wrapper I wrote around a couple of Win32 API's that get Drive information, you can use this to return ALL Drive letters or only those of a certain type of drive, i.e. CDROM:
In a Standard Module:
VB Code:
Option Explicit
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Public Enum enmDriveType
ALLDRIVES = 0
CDROM = 5
FIXED = 3
RAMDISK = 6
REMOTE = 4
REMOVABLE = 2
End Enum
Public Function GetDrives(Optional ByVal DriveType As enmDriveType = ALLDRIVES) As Variant
Dim sDrives As String
Dim sDrive As String
Dim sDriveList() As String
Dim lDriveCount As Long
Dim eType As enmDriveType
sDrives = Space(255)
' Extract a List of Logical Drive Letters
sDrives = Left$(sDrives, GetLogicalDriveStrings(255, sDrives))
' Step through each Drive Letter
Do While Len(sDrives)
sDrive = UCase$(Left$(sDrives, 3))
sDrives = Mid$(sDrives, 5)
' Get the Type of this Drive
eType = GetDriveType(sDrive)
' If it matches what we want, or we want all drives,
' Add it to the Array of Drives to Return
If eType = DriveType Or DriveType = ALLDRIVES Then
ReDim Preserve sDriveList(lDriveCount)
sDriveList(lDriveCount) = sDrive
lDriveCount = lDriveCount + 1
End If
Loop
' If Drives were found, return the Array,
' Otherwise return an empty array
If lDriveCount > 0 Then
GetDrives = sDriveList
Else
GetDrives = Array()
End If
End Function
Example Usage:
VB Code:
Private Sub Form_Load()
Dim vDrives As Variant
Dim lDrive As Long
' Get a List of CDROM Drive Letters Only
vDrives = GetDrives(CDROM)
For lDrive = 0 To UBound(vDrives)
List1.AddItem vDrives(lDrive)
Next
End Sub
Reply With Quote
