Folder Exists

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

Private Function DirectoryExists(sDirectoryName) As Boolean 
Dim sreturn As String
   sret = Dir(sDirectoryName)
   If Len(sreturn) > 0 Then
      DirectoryExists = True
   Else
      DirectoryExists = False
   End If
End Function



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