Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Save current directory and return to it
Message
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Save current directory and return to it
Divers
Thread ID:
00427304
Message ID:
00427304
Vues:
43
Hi everyone,

I'm having a problem and could not resolve is so far. The problem is:
I want one application to be run from another application.
In the calling application there is no other directories, than root directory. In the application, which should be called (TableMaintenance) I have usual directory structure (Data, Progs, etc.) In order to see inside directories I have to change directory to this application and after it finishes its work, return back to the old directory. So I tried this wrapper:
********************************************************************
*  Description.......: LookupDFLT - Default lookup action in XForm
*  Calling Samples...: 
*  Parameter List....: 
*  Created by........: Nadya Nosonovsky 10/10/2000 10:27:12 AM 
*  Modified by.......: 
********************************************************************
private pcCurDir && Current directory, make it private to be visible in hierarhy
local lcTableMaintDir
lcTableMaintDir='\redp\appl\TableMaintenance\' && Table Maintenance default directory
pcCurDir=curdir() && Save current directory
cd (lcTableMaintDir)
do TableMaintenance && Without parameters
cd (pcCurDir) && change back to current directory
return
Unfortunately, this does not work, because program continues its execution without stoping on do TableMaintenance (there I have only non-modal forms).

Could you please help me?

Thanks in advance.
If it's not broken, fix it until it is.


My Blog
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform