OVH Cloud OVH Cloud

[WDnn] Rendre variables les paramètres de SysRep(xxx)

1 réponse
Avatar
Georges Peyre
Bonjour

Comment le faire ?

La fonction SysRep(srCacheInternet) permet, par exemple, de récupérer
le répertoire contenant le cache internet

De nombreux paramètres permettent de récupérer d'autres répertoires

Dans la colonne d'une table j'ai chargé tous les noms des paramètres de
la fonction.
TableAjouteLigne(Table1,"srAppData","Répertoire à utiliser par les
applications pour stocker leurs données (spécifique à l'utilisateur)")
TableAjouteLigne(Table1,"srBureau","Répertoire correspondant au bureau
de Windows")
TableAjouteLigne(Table1,"srCacheInternet","Répertoire utilisé par
Internet Explorer pour garder les derniers éléments utilisés")
etc ...

Cette table devrait me permettre d'obtenir par un simple clic le
répertoire correspondant au paramètre sélectionné

// Dans le paragraphe Sélection d'une ligne de la table j'ai saisi le
code suivant
WParam est un Variant // le type Chaine est refusé par le compilateur
WParam = Table1.Parametres..ValeurAffichée
Info(WParam) // contient bien par exemple srCacheInternet
SRepSysteme = SysRep(WParam)

PROBLEME :
A l'exécution SRepSysteme contient toujours le répertoire par défaut de
la fonction SysRep : C:\WINDOWS\system32

Si j'affiche directement la valeur du parametre ...
Info(srCacheInternet)
... J'obtiens la valeur 27


Comment dois-je écrire le code pour que le paramètre sélectionné soit
pris en compte par la fonction ?

Cordialement

--
Elle est pas belle la vie ?

1 réponse

Avatar
Georges Peyre
Voici la solution

Georges Peyre a exposé le 20/09/2006 :

Si j'affiche directement la valeur du parametre ...
Info(srCacheInternet)
... J'obtiens la valeur 27



Là est la solution !

Dans la table il faut charger le code du paramètre au lieu de son nom
dans une colonne de type numérique

TableAjouteLigne(Table1,srAppData,"Répertoire à utiliser par les
applications pour stocker leurs données (spécifique à l'utilisateur)")
TableAjouteLigne(Table1,srBureau,"Répertoire correspondant au bureau de
Windows")
TableAjouteLigne(Table1,srCacheInternet,"Répertoire utilisé par
Internet Explorer pour garder les derniers éléments utilisés")

La fonction SysRep utilisera alors une valeur numérique comme parametre

// Le code du paragraphe Sélection d'une ligne de la table reste
inchangé
WParam est un Variant
WParam = Table1.Parametres..ValeurAffichée // contient un chiffre
SRepSysteme = SysRep(WParam)

Cordialement

--
Elle est pas belle la vie ?