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)