Drive letter problem

[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