Getting Windows Directory

[mastermind94]

How can I get the windows Directory?

Use the GetWindowsDirectory API.

Public Function DirExists(ByVal strDirName As String) As Integer

    Dim strDummy As String

    On Error Resume Next

    If Right$(strDirName, 1) <> "\" Then
        strDirName = strDirName & "\"
    End If

    strDummy = Dir$(strDirName & "*.*", vbDirectory)
    DirExists = Not (strDummy = vbNullString)

    Err = 0
End Function

Usage: 
If DirExists("C:\Windows\") Then 
'do whatever
End If

[REM]

To get the path to the windows folder, as Megatron said, use the GetWindowsDirectory API function. Check out thte following sample code. The class file is called Windows.cls.

'Windows.cls
Option Explicit

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

Public Function GetWinDir() As String

Dim strPath As String
Dim lngRet As Long

strPath = Space(256) 'String buffer

lngRet = GetWindowsDirectory(strPath, 256)

strPath = Left(strPath, lngRet) 'Trim the string

GetWinDir = strPath 'Return the path

End Function

Now, in a form or module, put the following code to get the windows path:

Dim win As New Windows
'Display the windows directory
Msgbox win.GetWinDir

Hope this helps!

Latrz

REM