vaya!! parece que la función "PathTo" se ha hecho muy popular, aparece en un monton de post, y a todo esto.....
espero que pongas los nombres de quienes te pasan lo codigos por que en el autor solo veo dimitrix1 y asi como que lo programas tu no tanto solo pegas los codigos.
yo creo que ese código lo sacarón de la ayuda del visual (es casi igual), asi que no creo que haga falta citar a algún autor
Dim MiArchivo, MiRuta, MiNombre
' Devuelve "WIN.INI" si existe.
MiArchivo = Dir("C:\WINDOWS\WIN.INI")
' devuelve el nombre de archivo con la extensión especificada. Si hay más de un *.ini
' el archivo existe, devuelve el primer archivo que se encuentra.
MiArchivo = Dir("C:\WINDOWS\*.INI")
' Utiliza otra vez el comando Dir, sin argumentos, para devolver el
' siguiente archivo *.INI situado en el mismo directorio
MiArchivo = Dir
' Devuelve el primer archivo *.TXT que tenga el atributo de oculto.
MiArchivo = Dir("*.TXT", vbHidden)
' Muestra los nombres en C:\ que representan directorios.
MiRuta = "c:\" ' Establece la ruta.
MiNombre = Dir(MiRuta, vbDirectory) ' Recupera la primera entrada.
Do While MiNombre <> "" ' Inicia el bucle.
' Ignora el directorio actual y el que lo abarca.
If MiNombre <> "." And MiNombre <> ".." Then
' Realiza una comparación a nivel de bit para asegurarse de que MiNombre es un directorio.
If (GetAttr(MiRuta & MiNombre) And vbDirectory) = vbDirectory Then
Debug.Print MiNombre ' Muestra la entrada
End If ' solamente si representa un directorio.
End If
MiNombre = Dir ' Obtiene siguiente entrada.
Loop