Retourner le chemin vers le Bureau par programmation

L'auteur

Site personnel

Liens sociaux

Viadeo Twitter Facebook Share on Google+   

Produit : 4D 2004  ·  Plateforme : Mac & Win


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

` ----- methode

C_TEXTE($path;$4Dfolder)
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
         $4Dfolder:=Dossier systeme(Système )
Boucle ($i;1;Longueur($4Dfolder))
Si ($4Dfolder[[$i]]=":")
               $path:=Sous chaine($4Dfolder;1;$i)+"Desktop Folder:"
               $i:=Longueur($4Dfolder)+1
Fin de si
Fin de boucle
Fin de si
Fin de si
ALERTE($path)

` ----- fin de methode

Vous avez aimé ce tutoriel ? Alors partagez-le en cliquant sur les boutons suivants : Viadeo Twitter Facebook Share on Google+   

  

Copyright © 2005 4D s.a. Aucune reproduction, même partielle, ne peut être faite de ce site ni 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.