flashDriveName = "Label of my Flash Drive"
flashDriveLetter = "?"
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d In dc
If d.IsReady Then
If d.VolumeName = flashDriveName Then
flashDriveLetter = d.DriveLetter
End If
End If
Next