ACC: How to Find the Windows and System Paths

MORE INFORMATION

1. Create a new module with the sample code below.
   
   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.
   
   NOTE: In the following sample code, an underscore (_) is used as a line-continuation character. Remove the underscore from the end of the line when re-creating this code in Access Basic.
   

         '**********************************
         'Declarations section of the module
         '**********************************
         Option Compare Database
         Option Explicit
   
         Declare Function GetWindowsDirectory% Lib "Kernel" (ByVal lpbuffer _
            As String, ByVal nsize As Integer)
         Declare Function GetSystemDirectory% Lib "Kernel" (ByVal lpbuffer _
            As String, ByVal nsize As Integer)
   
         'Returns the path to the Windows directory as a string.
         Function GetWinDir () As String
            Dim lpbuffer As String * 144
            Dim Length%
   
            Length% = GetWindowsDirectory(lpbuffer, Len(lpbuffer))
            GetWinDir = Left(lpbuffer, Length%)
         End Function
   
         'Returns the path to the Windows System directory as a string.
         Function GetSysDir () As String
            Dim lpbuffer As String * 144
            Dim Length%
   
            Length% = GetSystemDirectory(lpbuffer, Len(lpbuffer))
            GetSysDir = Left(lpbuffer, Length%)
         End Function
   						

2. From the View menu, choose Immediate Window. Type the following in the Immediate window, and then press ENTER:
   
   ? GetWinDir()
   
   The Windows directory path will be returned.
3. Type the following in the Immediate window, and then press ENTER:
   
   ? GetSysDir()
   
   The Windows System directory path will be returned.