Macro to Unzip an EXE file automaticly

Every month I get some Executable Zip files that contains sales datas in Excel files.

I'm trying to find a way to automaticly unzip these files into a specific directory. I'm able to run the EXE file from Excel but not able to specify the destination directory or press ALT-U to unzip it.


Sub Unzip()
Shell pathname:="c:\zip.exe", windowstyle:=shellnormfocus
SendKeys ("C:\UnzippedFiles_directory")
End Sub

Any ideas how I can take control of this Winzip window ???



<img src="http://www.sorelmetal.com/eric/zip.jpg"