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