How can a HDD serial# locate a Drive?

[MPW]

Hi All,

I am using Excel 2003 to backup files automatically to 2 external drives.
The user initially selects the drives for the project to reside on. Since these removable drives could be unplugged and reattached, there is a strong chance that they will have different drive letters assigned.

Instead of requiring the user to continually browse for the drive I would like to use the HDD serial number (since it will never change) to locate the target and copy the files. I know that I could loop through the drives but I would rather just use the copy command.
Example: FileCopy "C:\Original_File", "E:\Copied_File"

My question is how do I write the command using the serial number instead of the drive letter.

 

[BrianB]

Can get path and serial number like this :

'========================================================================================
'- GET EXTERNAL HARD DRIVES (includes flash drives)
'========================================================================================
Sub GET_EXTERNAL_DRIVES()
    Dim FSO, Drive, Counter
    '------------------------------------------------------------------------------------
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Counter = 0
    '------------------------------------------------------------------------------------
    '- LOOP ALL DRIVES
    For Each Drive In FSO.drives
        If Drive.isready And Drive.drivetype = 1 Then
            Counter = Counter + 1
            MsgBox ("Path   :  " & Drive.Path & "\" & vbCr _
                  & "Serial : " & Drive.serialnumber)
        End If
    Next
    '------------------------------------------------------------------------------------
    MsgBox ("Found " & Counter & " external drive(s).")
End Sub
'========================================================================================

 

[MPW]

Thanks Brian,

I had decided to go with a For Loop to match up the pre-selected Serial number. Once it finds the number I just wrote the FileCopy command as usual. I did like the way you wrote the For Loop, it was a little more straight forward then what I have been using.

Mark