---

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

Private Function GetSysDir() As String
Dim Temp As String * 256
Dim x As Integer
x = GetSystemDirectory(Temp, Len(Temp))
GetSysDir = Left$(Temp, x)
End Function

---

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.