Has anyone come across this problem in XP
with creating a batch file, by first creating a text file
then closing it. Then output using wzunzip.exe as
follows:-

Open "D:\WMSCall\extract.txt" For Output As #1
Print #1, "D:\WMSCall\wzunzip.exe
D:\WMSCall\ZippedFiles\" & Carrier & "\" & fileStr & _
FileYearStr & ".zip
D:\WMSCall\ZippedFiles\All\"
Close #1
'Rename .TXT to .BAT to enable remote execution
Name "D:\WMSCall\extract.txt"
As "D:\WMSCall\extract.bat"
'Run extract.bat
runBat = Shell("D:\WMSCall\extract.bat")

When trying to run this in xp it does not work.
Can anyone offer any ideas! thanks in advance

Instead of making a .bat file, maybe you could just shell out to the unzipping
program.

Ron de Bruin has some code to do the opposite (zip--not unzip) at:

http://www.rondebruin.nl/zip.htm

maybe you can pick it apart and modify parts of it.



Jonathan Jones wrote:

Has anyone come across this problem in XP
with creating a batch file, by first creating a text file
then closing it. Then output using wzunzip.exe as
follows:-

Open "D:\WMSCall\extract.txt" For Output As #1
Print #1, "D:\WMSCall\wzunzip.exe
D:\WMSCall\ZippedFiles\" & Carrier & "\" & fileStr & _
FileYearStr & ".zip
D:\WMSCall\ZippedFiles\All\"
Close #1
'Rename .TXT to .BAT to enable remote execution
Name "D:\WMSCall\extract.txt"
As "D:\WMSCall\extract.bat"
'Run extract.bat
runBat = Shell("D:\WMSCall\extract.bat")

When trying to run this in xp it does not work.
Can anyone offer any ideas! thanks in advance

--

Dave Peterson

Dave

Thanks for the reply will advise or post the answer, when found

Cheers
Jonathan


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Hi Jonathan

Maybe this is useful
http://www.rondebruin.nl/unzip.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jonathan Jones" wrote in message ...

Dave

Thanks for the reply will advise or post the answer, when found

Cheers
Jonathan


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!