Trovare la Directory System

Inserire in un modulo Bas:


Private Declare Function GetSystemDirectory Lib "Kernel32.dll" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Function WinSys() As String
WinSys = String$(256, 0)
WinSys = Left$(WinSys, GetSystemDirectory(WinSys, 255))
End Function

Inserire in un Form un CommandButton ed il seguente codice:

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

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