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


© 2024 Better Solutions Limited. All Rights Reserved. © 2024 Better Solutions Limited TopPrevNext