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