ASPExecute

[GDX]

Hello,
I am trying to use ASPExec in conjunction with PKUnzip to unzip files into a certain directory, the following is part of my code:

Set Executor = Server.CreateObject("ASPExec.Execute&quot
Executor.Application = "cmd.exe"
ExecuteString = "/c C:\PKUNZIP.exe " & File.Path & " " & FolderPath
Executor.Parameters = ExecuteString
Executor.Showwindow = true
sResult = Executor.ExecuteDosApp

When i run this i get an output of:

/c C:\PKUNZIP.exe C:\Upload\file_system.zip C:\Photos\41102123409677\ PKUNZIP (R) FAST! Extract Utility Version 2.50 03-01-1999 Copr. 1989-1999 PKWARE Inc. All Rights Reserved. Shareware Version PKUNZIP Reg. U.S. Pat. and Tm. Off. þ Pentium II class CPU detected. þ XMS version 2.00 detected. þ DPMI version 0.90 detected. PKUNZIP: (E09) can't find: C:/Upload/file_system.zip


It says Can't find: C:/Upload/file_system.zip I dont understand why it cant find the file its sitting in the directory, any ideas on how to resolve this problem? Gordon R. Durgha
gd@vslink.net

http://www.vslink.net

http://www.brainbench.com/transcript.jsp?pid=1217371

 

[spencertaylor]

Apart from a few minor alterations, which should alter anything I got you code to work, all be it not showing the command prompt window. I know this is something to do with Interact with Desktop on the service which is checked but is still not working. The code I used is:

<%
Dim FilePath, Folderpath
Set Executor = Server.CreateObject(&quot;ASPExec.Execute&quot
Executor.Application = &quot;cmd.exe&quot;
ExecuteString = &quot;/c C:\PKUNZIP.exe C:\Inetpub\

http://wwwroot\test\CLEAN.ZIP&quot;

Executor.Parameters = ExecuteString
Executor.Showwindow = true
sResult = Executor.ExecuteDosApp
Response.Write &quot;Result: &quot; & sResult & &quot;<p>&quot;
%>

The only dubious thing I see in your code is the reference to File.Path which should throw an error so I assume the code you've shown is not exactly what you're running?