devxlogo

WindowsDirectory – The path of the Windows directory

WindowsDirectory – The path of the Windows directory

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias _    "GetWindowsDirectoryA" (ByVal lpBuffer As String, _    ByVal nSize As Long) As Long' Return the path of the Windows directoryFunction WindowsDirectory() As String    Dim buffer As String * 512, length As Integer    length = GetWindowsDirectory(buffer, Len(buffer))    WindowsDirectory = Left$(buffer, length)End Function

devx-admin

Share the Post: