DirSystem

Declare Function GetSystemDirectory Lib "kernel32" Alias _
"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize _
As Long) As Long
Public Const MAX_PATH = 260
'Da inserire in una Sub:

Private Sub Command1_Click ()
Dim SysDir As String
Dim ResultCode As Long
SysDir = Space$(MAX_PATH)
ResultCode = GetSystemDirectory(SysDir, MAX_PATH - 1)
SysDir = Left$(SysDir, ResultCode)
Msgbox SysDir
End Sub

Come ottenere la Directory di sistema