Trovare la Directory di Windows

Inserire in un modulo Bas:

Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Function WinDir() As String
WinDir = String$(256, 0)
WinDir = Left$(WinDir, GetWindowsDirectory(WinDir, 255))
End Function

Inserire in un Form un CommandButton ed il seguente codice:

Private Sub Command1_Click()
MsgBox "La directory di Windows è : " & WinDir
End Sub

Testato su: Windows 98, Windows Me, Windows 2000 Professional