Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Can RUN window appear inside a VFP window?
Message
 
To
18/07/2006 22:09:05
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01137462
Message ID:
01137810
Views:
17
>I am calling pkzipc (a DOS program) repeatedly with RUN command from a form. It would be more elegant if the DOS boxes appeared inside the VFP form. Is there any way to accomplish this?
>
>TIA,
>
>Alex

To augmment Tore (a little):
Heres a WScript routine - full paths are important - if you are saving to an Inetpub folder, I have found that prefixing the full path with "\\.\" is very helpful.
* Go local to the default GET ZIP folder
CD (["]+ucRootDirectory+["]) && Assure root
CD (["]+FULLPATH(ucGetZip_Path)+["]) && ucGetZip_Path=Zip "pickup" folder
ucGetUnZipFilePath=GETFILE([ZIP],[Default 'GET' zip folder],[Get Zip],0,[Select ZIP File])
ucWZC_Path="C:\PROGRAM FILES\WINZIP\"
lcUnZipFileName=JUSTFNAME(ucGetUnZipFilePath)
lcUnZipPathName=JUSTPATH(ucGetUnZipFilePath)+[\]
* Go local to the final resting place of the zip file
CD (["]+lcZipToFullPathFolder+["]) && Go local to zips arhive root folder.
cUnZipToFolder=SET('DIRE') && Make sure VFP is in the tube
oWS=newOBJECT("WScript.Shell")
oWS.Run(["]+ucWzc_Path+[wzunzip" -d ]+ucGetUnZipFilePath+[ "]+cUnZipToFolder+[\"],1,.t.)
Did the Shell solution make your DOS window a child of a VFP form?
HTH
Imagination is more important than knowledge
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform