Cita:
Iniciado por Namiwis 
Hola Bazoooka
Exactamente que deseas hacer? supongo tus archivos estan en algun lado fisico? o como esta la situación si pudieras explicar mejor, quizas podamos apoyarte con alguna idea.
Saludos.
Perdon por no ser Claro !
Pero ya lo solucione con esta funcion
Código:
Public Function Path_Datos() As String
Dim sPath As String
sPath = Environ$("APPDATA")
Path_Datos = sPath & Empresa & Soft
Return Path_Datos
End Function