Visual Basic - SABER EL NOMBRE DE UN ARCHIVO

COMO PUEDO LEER EL NOMBRE DE UN ARCHIVO QUE ESTE EN MI DISCO DURO, NO LA RUTA DONDE SE ENCUENTRE SOLO EL NOMBRE DEL ARCHIVO

papi... tenés la función Dir para eso

dim archivo as string
dim path as string
dim encontrado as boolean

path = "aca tenes que poner el directorio de donde querés los archivos"

archivo=Dir(path)

do while archivo <> ""
if archivo = "al archivo que estoy buscando" then
encontrado=true
exit do
end if

archivo = Dir
loop

if encontrado then
msgbox archivo
else
msgbox "no se encontro el archivo"
end if

Espero que te haya servido