Public Function CheckFolderExistence(folderPath As String) As Boolean
If Dir(folderPath, vbDirectory) = "" Then
CheckFolderExistence = False
Else
CheckFolderExistence = True
End If
End Function
Public Function CheckFileExistence(folderPath As String, fileExtension As String) As Boolean
If Dir(folderPath & "*" & fileExtension) = "" Then
CheckFileExistence = False
Else
CheckFileExistence = True
End If
End Functio