Pastetool #62

Function DirExists(ByVal DName As String) As Boolean
	Dim sDummy As String
	On Error Resume Next
	If Right(DName, 1) <> "\" Then DName = DName & "\"
	sDummy = Dir$(DName & "*.*", vbDirectory)
	DirExists = Not (sDummy = "")
End Function