Dirwindows

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

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