Windows - Rilevare La Directory Di Sistema

Windows # 'Ecco un semplice sistema per rilevare la directory di sistema di windows
'utile in caso di dover salvare files ini al suo interno

'Inserire il codice che segue in un modulo:

Declare Function GetSystemDirectory Lib "Kernel32" Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
Function VBSysDir() As String
Dim Gwdvar As String, Gwdvar_Length As Integer
Gwdvar = Space(255)
Gwdvar_Length = GetSystemDirectory(Gwdvar, 255)
VBSysDir = Left(Gwdvar, Gwdvar_Length)
End Function

'Questo e' un esempio di utilizzo:

MsgBox VBSysDir & " e' la directory di sistema", vbInformation, "Directory di sistema"