extract/unzip xls file from zip file

In VBA for Excel, please....
In this dir are many zip file(admit i dont know the number of file)
MYPATH= "\\GCD01F4500\DATI\PUBBLICA\APPLICAZIONI\ZIP_FILE\"

I want vto extract from all zipped file only *.XLS file and copy injto same MYPATH

Not important to recreate the same dir and sub dir from ZIP file...
Important for me only to extract .xls file

In effect:
looping in MYPATH do until zip file are finshed and extract .xls

Quote:

---

Originally Posted by luca90

In VBA for Excel, please....
In this dir are many zip file(admit i dont know the number of file)
MYPATH= "\\GCD01F4500\DATI\PUBBLICA\APPLICAZIONI\ZIP_FILE\"

I want vto extract from all zipped file only *.XLS file and copy injto same MYPATH

Not important to recreate the same dir and sub dir from ZIP file...
Important for me only to extract .xls file

In effect:
looping in MYPATH do until zip file are finshed and extract .xls

---

This will get you started...

If you still have any questions, please ask...

Quote:

---

Originally Posted by koolsid

This will get you started...

If you still have any questions, please ask...

---

GOOD! work...
But the code unzip dir, sub dir, with the .xls based originale structure of dir...

I want to extract only the .xls in the first path od dir without structure of dir.... is possible?

if you are using winrar to unzip i believe e will extract to current directory or x to a specified directory, r is to recurse directory names and should be set to off