RE:buscar un archivo por codigo..!!
El siguiente ejemplo lo utilice en un reproductor que hice para mi trabajo, te busca todos los archivos en una carpeta, para tu caso necesitarías buscar en C:\ y comparar los archivos encontrados
Public Sub CargaDirectorio(ruta As String, Anidados As Boolean)
Dim f As Files
Dim folder As folder
Dim SubFolder As Folders
Dim fso As FileSystemObject
Dim f1 As File
Dim Y As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(ruta)
Set f = folder.Files
Set SubFolder = folder.SubFolders
With frmRepList
For Each f1 In f
giTotalArchivosLista = giTotalArchivosLista + 1
.grdLista.Rows = giTotalArchivosLista + 1
.grdLista.Row = giTotalArchivosLista
.grdLista.Col = gcColTitulo
.grdLista.Text = giTotalArchivosLista & ".- " & f1.Name
.grdLista.CellAlignment = 1
frmRepList.grdLista.TextMatrix(giTotalArchivosLista, gcColRuta) = f1.Path '& f1.Name
Next
End With
If Anidados Then
For Each folder In SubFolder
Call CargaDirectorio(ruta & "\" & folder.Name, Anidados)
Next
End If
End Sub
en el ciclo For Each f1 In f yo añado los archivos a una lista, tu debes de comparar si es el archivo que buscas, recuerda añadir la referencia para Scripting Runtime
Buena suserte