[RESOLVED] Detecting Drive Letter of USB Drive

[chris128]

Try replacing this part of the code:

'<<<< Function that gets the drive letter from the unit mask >>>>    
Private Function GetDriveLetterFromMask(ByRef Unit As Int32) 
Dim i As Integer       
For i = 0 To 25
 If Unit And i Then Exit For
   Unit = Unit >> 1
 Next 
Return Chr(i + 1 + Asc("A"))
End Function

with this:

'<<<< Function that gets the drive letter from the unit mask >>>>    
Private Function GetDriveLetterFromMask(ByRef Unit As Int32) 
Dim i As Integer       
For i = 0 To 25
 If Unit And i Then Exit For
   Unit = Unit >> 1
 Next 
Return Chr(i + Asc("A"))
End Function

Any better?