Directorios relativos

ThisWorkBook.Path te da el directorio donde está el archivo

si deseas saber directorios del sistema, tendrás que recurrir a las APIs de
Windows, por ejemplo, para el path de WIndows es

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As
Long


Private Function WinDir()
Dim Path As String, strSave As String
strSave = String(200, Chr$(0))
WinDir = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave))) &
"\"
End Sub


llamando a esa función te retornará el path del Directorio windows


"Javier Avila" escribió en el mensaje
news:e0O%
Hola a todos y gracias por sus ayuda de antemano (se nota eu les tengo fé?)
Quisiera saber si cuando defino un directorio como variable digamos un:

dim strDIR as string
...

y luego le asigno un valor..., ¿cómo puedo ponerle un directorio
relativo?, no lo he porbado porque nisiquiera se me ocurre como, me
estube imaginando algo como :

strDIR = "%mydocsdir%\" <<<<<<asumiendo que windows/excel sepa de que le
hablo cuando le digo %mydocsdir%


Será posible? algun valiente? nuevamente gracias!

Javier Avila
System Adminsitrator

Todo empeora a elevadas presiones.