Vba: copy file in zip folder from path to path

[Nelson78]

Hello everybody.

I've to copy a file from a folder and save it to another folder.
The folder that contains the file can be zip or not, I cannot know this info in advance.

Anyway, no problem if the folder is not "zip", I can achieve ("if" part of the code below).

Instead, if the folder is a zip one, the copy an paste operation doesn't work ("elseif" part of the code below).

As you can see, if the folder is zip, the path changes with the add of

& Cell.Offset(0, 2).Value & ".zip\" &

How can I figure it out?

Dim FromPath As String 
Dim ToPath As String


If FileExists("\\10.100.000.001\folder1\" & Cell.Offset(0, 2).Value & "\" & Cell.Offset(0, -3).Value & ".pdf") Then

                                    FromPath = "\\10.100.000.001\folder1\" & Cell.Offset(0, 2).Value & "\" & Cell.Offset(0, -3).Value & ".pdf"
                                    ToPath = "Z:\Folder2\YELLOW\" &  Cell.Offset(0, -3).Value & ".pdf"  
                                    
                                       FileCopy FromPath, ToPath
                                    

ElseIf FileExists("\\10.100.000.001\folder1\" & Cell.Offset(0, 2).Value & ".zip\" & Cell.Offset(0, 2).Value & "\" & Cell.Offset(0, -3).Value & ".pdf") Then
                                
                                      FileCopy FromPath, ToPath


End if

 

[Marc L]

Hi,​

​

as a folder can't be a .zip file, so you must first know if the source is within a folder or within a zip file, can't be confused …​

 

[Nelson78]

I'm sorry.
I'm going to try being more precise using an image.
Unfortunately, I've to cover private data, but perhaps you can undestand what I mean.

 

[Marc L]

​

Yes and my post #2 assertion is still true …​

 

[Nelson78]

I'm a little bit embarassed in not understanding the objection.

What does the attached icon represent?

And anyway, have you got any suggestions to help me?

 

[Marc L]

The folder that contains the file can be zip or not, I cannot know this info in advance.

Elaborate your logic, strategy whatever, how a VBA procedure can know something you even do not know ? …​

As coding is knowing, can't be guessing …​

As if the source file is within a .zip file it can't be a copy but an extraction !​

A sample in this thread (see also how it works on MSDOCS website with ParseName as must see ) :​

Extract a specific file from a .zip file & search for a string if it exists in the extracted file.

Hello There, I would like to know the VBA code for the following requirement: Following parameters passed to the Function: 1. The name of the .zip file (complete folder path including zip file name: C:\FolderFile.zip) 2. Name of the sub directory in the .zip (where the file to be extracted...

chandoo.org

 

[Nelson78]

Thank's.
Anyway, Ron de Bruin came to the rescue.

Home | Ron de Bruin Excel Automation

Welcome to https://www.rondebruin.nl

www.rondebruin.nl

 

[Marc L]

​

As he used the same than in my sample … ​