try this code :
''''''''''''''''''''''''''
Function Test(YourDirectory As String) As Boolean
Test = False
TestName = Dir(TestPath, vbDirectory)
Do While TestName <> ""
If UCase$(YourDirectory) = UCase$(TestName) Then Test = True: Exit Do
TestName = Dir ' Get next directory
Loop
End Function
''''''''''''''''''''''''''''''''''''
where TestPath = "c:" or your path and YourDirectory is your folder for test.
Test is true if your folder already exists.
Good luck!
Like this thread? Share it with others