Developpez.com - 4D
X

Choisissez d'abord la catégorieensuite la rubrique :


Retourner le chemin vers le Bureau par programmation

Date de publication : 22/07/05

Par Technicien Support (Support Technique)
 



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



Valid XHTML 1.1!Valid CSS!

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.

Contacter le responsable de la rubrique 4D