How do I determine the system directory 1

[wtstro]

I have an MS-Access app that I want to copy some .dll files to the system directory. How can I get the correct path for this directory without knowing what operating system the user has on their workstation?

 

[acron]

Use the following code in a general module to create a function to return the System Directory :

Private Declare Function GetSystemDirectory Lib "kernel32" _
        Alias "GetSystemDirectoryA" ( _
        ByVal lpBuffer As String, _
        ByVal nSize As Long) As Long

Function SystemDir() As String
    Dim strSys As String, lRet As Long
    strSys = Space(255)
    lRet = GetSystemDirectory(strSys, 255)
    SystemDir = Left$(strSys, lRet)
End Function

=SystemDir() should then return the path.

A.C.