Mega Code Archive

 

Categories / VisualBasic Script / Windows API

 

Returns the Windows directory

Declare Function GetWindowsDirectoryA Lib "kernel32" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Sub ShowWindowsDir()     Dim WinPath As String     Dim WinDir As String     WinPath = Space(255)     WinDir = Left(WinPath, GetWindowsDirectoryA _       (WinPath, Len(WinPath)))     MsgBox WinDir, vbInformation, "Windows Directory" End Sub Function WindowsDir() As String     Dim WinPath As String     WinPath = Space(255)     WindowsDir = Left(WinPath, GetWindowsDirectoryA _        (WinPath, Len(WinPath))) End Function