Returns the Windows directory : Windows Resources « Windows API « VBA / Excel / Access / Word






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

 








Related examples in the same category

1.Clipping and Unclipping the Cursor
2.The FindWindow() function finds the first top-level window in the window list that satisfies the specified arguments.
3.Check Whether an Excel File Is Open on a Network
4.Custom About Dialog
5.Disable the X for Closing a Userform
6.Check mouse button
7.Get execuatable file name from a given file name
8.Get screen width and height
9.Get window's rectangle
10.Find window by class name
11.Show Excel Window Size
12.Get color depth
13.Get DC and release it
14.Get user name
15.Get the computer name
16.Freeze a window
17.Change the Excel icon