Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Path to a program
Message
 
 
To
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:
01152080
Views:
38
Greg,

Rick's code did exactly what I was looking for. It returns path to the exe correctly.

Now I'm struggling with Excel conversion to DBF :(

>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.
If it's not broken, fix it until it is.


My Blog
Previous
Reply
Map
View

Click here to load this message in the networking platform