Shell command and PKUNZIP

I have the following code in a VB4-16 program
I = Shell("PKUNZIP -o A:\ORG-DET.ZIP", 0)
When i converted the program to VB5 this no longer works. I get "File Not Found" (53)
What i would like is get the PKUNZIP.exe out of my H:\ drive
and have it unzip the ORG-DET.ZIP file in the A:\ drive
mrobersoAsked:
Who is Participating?
 
kamallCommented:
Well, it is simple.
The problem is that the PKUNZIP.EXE file can not be located in the current directory, windows directory, or the PATH environment variable.
Simply append the path where the PKUNZIP.EXE exists. For example:

I = Shell("H:\PKUNZIP -o A:\ORG-DET.ZIP", 0)

You can also put the PKUNZIP.EXE in your application path and use:

I = Shell(App.Path & "\PKUNZIP.EXE -o A:\ORG-DET.ZIP", 0)

That way you do not have to know where is your application installed. The App.Path will get the directory name.

Hope that helps.
Regards
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.