Use GetWindowsDirectory API. Here's an example:
Code:
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function GetWindowsPath() As String
Dim lRet As Long
Dim strBuffer As String
strBuffer = Space(255)
lRet = GetWindowsDirectory(strBuffer, Len(strBuffer))
If lRet Then GetWindowsPath = Left(strBuffer, lRet)
End Function
Example: strWindows = GetWindowsPath
------------------
Serge
Software Developer
[email protected]
[email protected]
ICQ#: 51055819
[This message has been edited by Serge (edited 11-29-1999).]