Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Can RUN window appear inside a VFP window?
Message
 
À
18/07/2006 22:09:05
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 9 SP1
Divers
Thread ID:
01137462
Message ID:
01137810
Vues:
18
>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform