Folder Exists

This function will return True if the directory exists and False if the directory does not exist

Public Function Folder_Exists( _ 
         ByVal sFolderPath As String) As Boolean 
Dim sreturn As String 
   sret = Dir(sFolderPath) 
   If Len(sreturn) > 0 Then 
      Folder_Exists = True 
   Else 
      Folder_Exists = False 
   End If 
End Function 

Public Function Folder_Exists( _ 
         ByVal sFolderPath As String) As Boolean 
Dim iTemp As Integer 
   On Error GoTo AnError 
   iTemp = GetAttr(sFolderPath) 
   Folder_Exists = True 
   Exit Function 
AnError: 
   Folder_Exists = False 
End Function