leer un archivo especifico dentro de una carpeta en donde hay mas de ese tipo

[Insomnia]

Hola

Puedes utilizar un FileListBox en el cual le dices que el .Pattern sea MC*.*, luego comprueba que solo exista un archivo en el FileListBox y luego obtienes su ruta con .Path y .List. Te dejo un ejemplo:

Código:

With File1
        .Path = "D:\MisDoc\Ejemplo"
        .Pattern = "MD*.*"
        If .List(0) = "" Then
            MsgBox "No se encontro el archivo"
        ElseIf .List(1) <> "" Then
            MsgBox "Existe mas de un archivo"
            Else
                Ruta = .Path & "\" & .List(0)
                AbrirDoc Ruta
        End If
   End With

--Saludos--