Drive letter problem

[guayo]

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.

[pnish]

You need to parse the drive letter from frmScan.Drive.List(i). So if frmScan.Drive.List(i) = "C:=[My Drive]", do something like this:

Dim DriveSpec As String
DriveSpec = Left$(frmScan.Drive.List(i), 2) & "\"
mScanFiles.FindFile "*.*", DriveSpec

[guayo]

Thank you for you prompt response, It was excatly was I was looking for !!