RE:Determinar carpeta windows
Hola :
Aqui te envio un ejemplo de la API de windows para que te de, la carpeta de windows y el de system.
' Funciones del API:
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
Dim buf As String
Dim ret As Long
'
' Obtener el directorio de windows
buf = String$(260, Chr$(0))
ret = GetWindowsDirectory(buf, Len(buf))
Text1.Text = Left$(buf, ret)
'
' Obtener el directorio de System
buf = String$(260, Chr$(0))
ret = GetSystemDirectory(buf, Len(buf))
Text2.Text = Left$(buf, ret)
SALUDOS DESDE PERU