Hello matt,
sorry for my delay, I had a class.
copy these code in a module:
''''''''''''''''''''''''''''''''''''
Function Test_Folder(YourDirectory, TestPath) As Boolean
Test_Folder = False
GetFolder = Dir(TestPath, vbDirectory)
Do While GetFolder <> ""
If UCase$(YourDirectory) = UCase$(GetFolder) Then Test_Folder = True: Exit Do
GetFolder = Dir ' Get next directory
Loop
End Function
Sub Main_Test()
''' enter your path here
TestPath = "c:"
'''please enter your folder name
YourDirectory = "Matt"
If YourDirectory = "" Then Exit Sub
If Test_Folder(YourDirectory, TestPath) = True Then
MsgBox (YourDirectory & " already exists.")
Else
MsgBox (YourDirectory & " does not exist.")
End If
End Sub
''''''''''''''''''''''''''''''''''
now run Main_Test.
Good luck!
Hamid