Checking if a directory exists

Hi,

One of a variety of ways to do it is this:-

Function CheckFolderExists(strPath As String) As Boolean
On Error Resume Next
Err.Clear
ChDir strPath
If Err.Number = 0 Then CheckFolderExists = True
End Function

and then use it in your procedure like this:-

Sub test()
Dim strFolder As String

strFolder = InputBox("Enter the folder path")

If CheckFolderExists(strFolder) = True Then
MsgBox "That exists!"
Else
MsgBox "That folder doesn't exist"
End If
End Sub

I hope this helps,
D.

Probably a dumb question, but is there a difference between all that and a macro like
Sub CheckDirectory()
If Dir("C:\My Documents\") <> "" Then
MsgBox "Yes, path exists"
Else
MsgBox "No, path does not exist."
End If
End Sub

SJ

No not a dumb Question BUT your macro is not
usable in that the dir to check is hard coded.
DKs function will check for any dir path you specify
so that it is more usable, ie you can use this
function throughout your application. When building VBA appliations that may need these
functions it makes sence to have an all up test
rather the many seperate subs.
The function is also usable within the spreadsheet
itself eg in A1 put = CheckFolderExists("C:\mine")

Ivan Probably a dumb question, but is there a difference between all that and a macro like