vba копирование и замена файлов в zip-папке

Я создал макрос VBA, который извлекает файлы из папки / подпапок на основе ряда параметров. Сюда входит поиск почтовых папок, соответствующих этим параметрам, и их копирование в новый каталог, чтобы также можно было искать каждый файл. Проблема, с которой я сталкиваюсь, заключается в том, что многие из файлов в этих zip-файлах дублируются, и поскольку проект должен быть автоматизирован, я не могу сидеть там и нажимать кнопку «Не копировать» каждый раз, когда он появляется. Есть ли способ поиска через zip-файлы и игнорировать дубликаты файлов? Что у меня для этой части моего кода:

Sub Unzip(fileName As String, mainSubfolder As String) Dim sourceDir As String, fileString As String Dim FileNameFolder As Variant Dim oApp As Object sourceDir = "\\Filesrv02\depts\AR\EDIfiles\Remits" fileString = mainSubfolder + fileName If Right(sourceDir, 1) <> "\" Then sourceDir = sourceDir & "\" End If FileNameFolder = sourceDir & "Unzipped" If Dir(FileNameFolder, vbDirectory) = vbNullString Then MkDir FileNameFolder End If Set oApp = CreateObject("Shell.Application") oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(fileString).Items End Sub 

В последних двух строках я копирую файлы из папки zip в новую папку под названием «Unzipped». Тем не менее, я не уверен, как получить в каждом отдельном файле в zip-папке, чтобы сказать, если он уже существует, игнорируйте его. Любые предложения будут ценны!

Давайте будем гением компьютера.