I was trying to get this code to scan my two drives but doesn't do it, because it returns the whole drive name 'c:=[My Drive]', instead of the drive letter 'c:'

Dim i As Integer
For i = 0 To frmScan.Drive.ListCount - 1
'Search All the drives
Log "Scanning drive " & UCase(frmScan.Drive.List(i)) & "\"
frmScan.lblOperation.Caption = "Scanning drive " & UCase(frmScan.Drive.List(i)) & "\"
mScanFiles.FindFile "*.*", UCase(frmScan.Drive.List(i)) & "\"
DoEvents
Next i
'Log and show completion
Log "Scan Complete!"
frmScan.lblOperation = "Finished"
frmScan.lblCurFile = "-Scan Complete-"
frmScan.lblGoAbort.Enabled = False
frmScan.lblGoFix.Enabled = True
End If

How can I return just the drive letter.