Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Path to a program
Message
From
07/09/2006 16:34:05
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01151910
Message ID:
01152078
Views:
31
I am assume you are talking about find WinZip.

Look it up in the registry at

HKEY_CLASSES_ROOT\WinZip\shell\open\command\

You will have to remove or replace the "%1" clause with the zip file name.


>Hi everybody,
>
>I've installed command line interface for winzip. If I use wzzip without full path, it doesn't find the program. If I put it with the whole path, it works.
>
>However, I can not 100% guarantee (though there is 99% probability), that the user installed it into the same place. What should I do?
>
>The other question:
>
>I use this program to run a command
>local oShell, llError, loException
>llError = .f.
>try
>   oShell = createobject("WScript.Shell")
>catch to loException
>   if m.tlSilentMode
>     tcRetVal = "Run-time error: WScript.Shell Object is not Found"
>   else
>	=messagebox("Run-time error: WScript.Shell Object is not Found")
>  endif
>  llError = .t.
>endtry
>if m.llError <> .t.
>   try
>* SW_SHOW_HIDDEN 0,SW_SHOW_NORMAL 1,SW_SHOW_MINIMIZED 2,SW_SHOW_MAXIMIZED 3
>    oShell.run(m.tcCommand, 0,.t.) 	catch to loException
>	if m.tlSilentMode
>	 tcRetVal = "Run-time error: WScript.Shell: " + ;
> 	 m.tcCommand + chr(13) + chr(10) + Log_Error(m.loException)
>	else
>	 =messagebox("Run-time error: WScript.Shell: " + m.tcCommand)
>	endif
>    llError = .t.
> endtry
>endif
>release oShell
>
>return !llError
>
>
>but even if command fails, I don't get an error. What should I do to always get an error?
>
>Thanks in advance.
Greg Reichert
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform