También puedes hacer:
Código:
Dim Foro As String
Foro = Dir("ubicacion")
En donde
ubicacion es la ruta donde se esta trabajando (App.Path) o otro lugar específico
Esto te dará una cadena (si encuentra el archivo) con el nombre del primer arcivo que se busque (si se pone *.exe, dará como resultado el primer archivo *.exe que encuentre)
