• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 291
  • Last Modified:

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
0
mroberso
Asked:
mroberso
1 Solution
 
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

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now