[VB6] problema con Environ

[ghiboz]

ciao! nel mio programma mi serve sapere come si chiama la cartella dove è installato il sistema operativo...

Environ("SystemRoot")

e funziona correttamente, ma con windows 98 non funza e mi ritorna blank...

sapete aiutarmi??

tnx!!!

[MMarzia]

ti sposto nel subforum

[Jupy64]

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

Private Function PathWindow() As String
   Dim idLng As Long
   Dim buffer As String * 255
   buffer = Space(255)
   idLng = GetWindowsDirectory(buffer, 255)
   PathWindow = buffer
End Function