Produit : 4D 2004 · Plateforme : Mac & Win ♪
Voici un code retournant de manière dynamique le chemin d'accès vers le bureau :
Sélectionnez
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
` ----- méthode
C_TEXTE
(
$path
;
$4
Dfolder)
C_ENTIER LONG
(
$platform
;
$system
;
$vlSys
;
$i
)
PROPRIETES PLATE FORME(
$platform
;
$system
)
Si
(
$platform
=
3
)
$path
:=
Dossier systeme
(
Bureau
Win )
Sinon
$vlSys
:=
$system
\
256
Si
(
$vlSys
=
16
)
$path
:=
Dossier systeme
(
Préférences ou Profiles )
$path
:=
Remplacer chaine
(
$path
;
"Library:Preferences:"
;
"Desktop:"
)
Sinon
$4
Dfolder:=
Dossier systeme
(
Système
)
Boucle
(
$i
;
1
;
Longueur
(
$4
Dfolder))
Si
(
$4
Dfolder[[
$i
]]=
":"
)
$path
:=
Sous chaine
(
$4
Dfolder;
1
;
$i
)+
"Desktop Folder:"
$i
:=
Longueur
(
$4
Dfolder)+
1
Fin de si
Fin de boucle
Fin de si
Fin de si
ALERTE
(
$path
)
` ----- fin de méthode