ACC: How to Find the Windows and System Paths (95/97)

MORE INFORMATION

1. Create a module and type the following in the Declarations section:
   
   NOTE: You may have some Microsoft Windows API functions defined in an existing Microsoft Access library; therefore, your declarations may be duplicates. If you receive a duplicate procedure name error message, remove or comment out the declarations statement in your code.

          '**********************************
          'Declarations section of the module
          '**********************************
          Option Compare Database
          Option Explicit
   
          Declare Function apiGetWindowsDirectory& Lib "kernel32" Alias _
             "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal _
             nSize As Long)
          Declare Function apiGetSystemDirectory Lib "kernel32" Alias _
             "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize _
             As Long) As Long

2. Type the following procedures:

         ' This function returns the path to the Windows directory as a
         ' string.
         Function GetWinDir () As String
            Dim lpbuffer As String * 255
            Dim Length as Long
            Length = apiGetWindowsDirectory(lpbuffer, Len(lpbuffer))
            GetWinDir = Left(lpbuffer, Length)
         End Function
   
         ' This function returns the path to the Windows System directory
         ' as a string.
         Function GetSysDir () As String
            Dim lpbuffer As String * 255
            Dim Length as Long
            Length = apiGetSystemDirectory(lpbuffer, Len(lpbuffer))
            GetSysDir = Left(lpbuffer, Length)
         End Function
   						

3. To test the GetWinDir() function, type the following line in the Debug window, and then press ENTER.

   ? GetWinDir()

   Note that the Windows directory path is returned.
4. To test the GetSysDir() function, type the following line in the Debug window, and then press ENTER.

   ? GetSysDir()

   Note that the Windows System directory path is returned.