PBDR.COM

About   -   Contact   -   Purchase   -   Search   -   What's New

 
 
Get Windows Directory
This function returns the windows directory path. The function makes use of the GetWindowsDirectory API function to return to required path. Add the following code to a FileHandling.bas standard module to compile a File Utility function set:
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias  _
  "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize _
  As Long) As Long

Function GetWinDir() As String
'*******************************************************
'<DESC>		Retrieves Windows Dir Path</DESC>
'<RETURN>	Windows Directory Path</RETURN>
'<ACCESS>	Public
'<USAGE>	strSysPath = GetWinDir()</USAGE>
'*******************************************************

  Dim strBuf As String * 256
  Dim lngReturn_len As Long

  lngReturn_len = GetWindowsDirectory(strBuf, Len(strBuf))
  GetWinDir = Trim$(Left$(strBuf, lngReturn_len))

End Function
    
 

Top of Page

Legal Notice

Ken Howe 2011