ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Initialiser une variable d'environnement à partir de VFP   



L'auteur

Christophe Chenavier
France France
Membre Simple
# 0000000023
enregistré le 14/10/2004
http://www.corwin.fr
58 ans
CHENAVIER Christophe
80440 BOVES
de la société Corwin
Fiche personnelle


Note des membres
19/20
1 vote


Contributions > 09 - Automation > Windows Scripting

Initialiser une variable d'environnement à partir de VFP
# 0000000258
ajouté le 10/11/2005 07:59:03 et modifié le 10/11/2005
consulté 9429 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0

Description

Voici la fonction SetEnv qui complète naturellement la fonction GetEnv de VFP.

Trois types de variable d'environnement possibles :

1)
"VOLATILE" (par défaut): Ajoute une nouvelle variable pour la session en cours (auto détruite en fin de session)

2) "USER" : Ajoute une nouvelle variable utilisateur

3) "SYSTEM" : Ajoute une nouvelle variable système (il faut être administrateur)

Code source :
*!* Objet : Initialiser une variable d'environnement à partir de VFP
*!* Auteur : C.Chenavier
*!* Version : 1.00 - 12/10/2005

FUNCTION SetEnv

LPARAMETERS cName, cValue, cType

LOCAL oWShell, oVarEnv, lError

IF EMPTY(M.cType)
   M.cType = "VOLATILE"
ENDIF

TRY
   oWShell = CREATEOBJECT("WScript.Shell")
   oVarEnv = oWShell.Environment(M.cType)
   oVarEnv.Item(M.cName) = M.cValue
CATCH
    M.lError = .T.
ENDTRY

RETURN NOT lError

Commentaires
Aucun commentaire enregistré ...

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3