Retourner le chemin vers le Bureau par programmation

Technicien Support

- Titre : Retourner le chemin vers le Bureau par programmation

- Auteur : Technicien Support

- Parution : 22 juillet 2005

- Licence : Copyright ® 2005 4D s.a. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Sommaire

Produit : 4D 2004  ·  Plateforme : Mac & Win ♪

Voici un code retournant de manière dynamique le chemin d'accès vers le bureau :

1. ` ----- méthode

3. C_TEXTE($path;$4Dfolder)

4. C_ENTIER LONG($platform;$system;$vlSys;$i)

5. PROPRIETES PLATE FORME($platform;$system)

6. Si ($platform=3)

7. $path:=Dossier systeme(Bureau Win )

8. Sinon

9. $vlSys:=$system\256

10. Si ($vlSys=16)

11. $path:=Dossier systeme(Préférences ou Profiles )

12. $path:=Remplacer chaine($path;"Library:Preferences:";"Desktop:")

13. Sinon

14. $4Dfolder:=Dossier systeme(Système )

15. Boucle ($i;1;Longueur($4Dfolder))

16. Si ($4Dfolder[[$i]]=":")

17. $path:=Sous chaine($4Dfolder;1;$i)+"Desktop Folder:"

18. $i:=Longueur($4Dfolder)+1

19. Fin de si

20. Fin de boucle

21. Fin de si

22. Fin de si

23. ALERTE($path)

25. ` ----- fin de méthode