¿Cómo determino la ruta correcta (path) del directorio donde esta el WINDOWS en mi disco?

Declarar las funciones :

Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA"_
                 (ByVal lpBuffer As String, ByVal nSize As Long) As Long


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

dim NomDir as string
dim i as integer

i = 128
NomDir = spaces$(i)
i = GetWindowsDirectory(NomDir,i)
NomDir = left$(NomDir,i)

i = 128
NomDir = spaces$(i)
i = GetSystemDirectory(NomDir,i)
NomDir = left$(NomDir,i)

¿Existe una función igual que la anterior pero que retorne la ruta del directorio \My Documents?

Debes buscar en el registro :

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ShellFolders,
en Personal tienes el path de "Mis Documentos" (o "My Documents").

Un saludo.


_________________________________________________

José Rubí de la Vega
E-mail : jrubi@arrakis.es
WWW : http://www.arrakis.es/~jrubi
Podrás encontrar información sobre VB, la lista
VB-ESP y un resumen de los mensajes de la misma