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 Come Ottenere la Directory dove e' installato Windows |