De code on my site is not supprted by Microsoft so it is not strange
that it not work the same as code for WinZip.
You can Shell WinZip so this is always a better option if you can use it.
Test the code on my site and if you have problems let me know
http://www.rondebruin.nl/windowsxpunzip.htm
I have winZip code also on my site
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Yuvraj" wrote in message ...
On May 2, 10:53 pm, "Ron de Bruin" wrote:
See my reply in your other thread
--
Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm
"Yuvraj" wrote in ...
Hi Guys,
I have a strange Problem with my code.
My code zips the file from File Server and then opens and reads it in
excel application.
The code then opens the unzipped file in the Temp folder in the path given
above. I have given the code below.
Initially we were using winzip but now we are using windows shell
programming where the code is
obj.Namespace(sourceFileName) Namespace(DestinationFilename).Items
Ideally this function needs to unzip the *.xls item in the Temp
folder.
Problem:
The above function using windows is also creating a Tempory Folder
inside Temp with New name and then
pasting the *.xls inside it.
This was not happening when we were using winzip.
The problem is i first get the zipped file from server to Temp using
some method, then i try and unzip it using
obj.Namespace(sourceFileName) Namespace(DestinationFilename).Items
the file is copied or unzipped to the Temp folder
now i try to use the function having the code like
if filedownloaded = true
wasFDownloaded = True
If openBookF = True Then
On Error Resume Next
Set filedownload = Application.Workbooks.Open
(filename:=localFilename, ReadOnly:=True, _
AddToMru:=False) /////This line then creates a Temporary folder 1
and ////places xls file in zipfile again which was not happening
before
On Error GoTo 0
Else
filedownloaded = localFilename
End If
End If
I want to avoid the creation of temp folder:
The parameters used in this line of code
obj.Namespace(sourceFileName) Namespace(DestinationFilename).Items
cannot avoid the creation of same file inside TemporaryFiolder 1, but
i want my application to open the file which is already in the Temp
copied but not create a Folder with Temporary Folder1 name everytime
it tries and open the file unzipped using the above two code.
Any help and iseas will be appreciated.
Regards,
Yuvraj- Hide quoted text -
- Show quoted text -
Thanx Ron,
I have already used that code.
Only difference is I am unzipping all the zipped files in my Temp
folder.
But when I am trying to open the zipped files using.
On Error Resume Next
Set filedownload = Application.Workbooks.Open
(filename:=localFilename, ReadOnly:=True, _
AddToMru:=False)
Here localFilename=Temp/
xxxx.zip and Temp= C:
\Document~1\Name\LocalSettiongs\Temp\
I have already unzipped the xxxx.zip and the file inside xxxx.zip is
abcd.xls
When I use the above code where localFilename=Temp/xxxx.zip it used
to open abcd.xls directly. But after we are not using Winzip and
using the code to unzip the zipped file and use the same code to open
the file inside xxxx.zip the abcd.xls inside xxxx.zip and the
abcd.xls which is outside after we have unzipped is not pointing to
the same thing hence when I use the above code it is making a
Temporary folder when we try to open abcd.xls inside xxxx.zip.
The requirement is like this hence we cannot change this but why it is
forming temporary folder when it was not while using Winzip
Regards,
Yuvraj