How to find the correct drive letter of a hard drive

[Doc Scheinder]

Hello, I'm writing a program that needs to find the correct letter of the hard drive no matter what it is. Does any one have some simple sample code to do this? Thanks!

[peet]

Private Sub Command1_Click()
    Dim fso As New FileSystemObject
    Dim drv As Drive
    On Error Resume Next
    For Each drv In fso.Drives
        Debug.Print drv.DriveLetter
        Debug.Print drv.AvailableSpace
        Debug.Print drv.DriveType
        Debug.Print drv.FileSystem
        Debug.Print drv.FreeSpace
        Debug.Print drv.IsReady
        Debug.Print drv.Path
        Debug.Print drv.RootFolder
        Debug.Print drv.SerialNumber
        Debug.Print drv.ShareName
        Debug.Print drv.TotalSize
        Debug.Print drv.VolumeName
    Next drv
End Sub