Eu tenho um arquivo .zip que começa com um diretório pai. Preciso ler esse diretório a partir do arquivo e procurar no meu HD para ver se esse nome já existe. Se existir, eu o excluo e substituo no conteúdo do arquivo .zip.

Tudo isso eu posso fazer, exceto ler o arquivo .zip sem realmente descompactar o arquivo.

O arquivo .zip pode ter mais de 2G de tamanho, portanto, evito descompactar, ler o dir e copiar.

O motivo de eu não descompactar diretamente o local e forçar uma substituição é que, por algum motivo, ao usar oCopyHere Para descompactar, ele ignora as opções que normalmente forçam a substituição e ainda solicita ao usuário se ele deseja sobrescrever.

Código para descompactar arquivos:

 Set objSA = CreateObject("Shell.Application")
 Set objSource = objSA.NameSpace(pathToZipFile).Items ()
 Set objTarget = objSA.NameSpace(extractTo)     

 objTarget.CopyHere objSource,4