PureBasic

Code : Tout sélectionner

;exemples de 3 fonctions intéressantes :
;      GetCurrentDirectory_
;      SearchPath_
;      SetCurrentDirectory_


Procedure.s path(fichier$) ;petite procedure pour récuperer le chemin d'un nom de fichier
    i=Len(fichier$)
    Repeat
        i=i-1
    Until Mid(fichier$,i,1)="\"
    Path$=Left(fichier$,i)
    ProcedureReturn Path$
EndProcedure


;Quelque fonction bien utile pour récupérer les noms de répertoires 
rep.s=Space(256) ; bien définir la variable sinon ça plante....

;Tout d'abord le répertoire courant
GetCurrentDirectory_(256,rep)
MessageRequester("rep_courant : ",rep,0)

;Le répertoire qui contient notre executable
;tres interessant dans des cas tel celui ci :
;    - pour un  logiciel type lecteur : film, photo, musique, texte....
;      lorsque l'on utilise un fichier ini pour garder les parametre utilisateur
;      et que l'on veux pouvoir appeler le logiciel en cliquant sur un fichier dans l'explorateur
;      on a besoin de connaitre le repertoire où est le logiciel
SearchPath_(NULL,"repertoire.exe",NULL, 256, rep,NULL );
MessageRequester("rep logiciel : ",path(rep),0)

;On peut directement changer le répertoire courant pour que le logiciel marche comme lorsque l'on clique dessus
SetCurrentDirectory_(path(rep))

;Vérification du répertroire courant
GetCurrentDirectory_(256,rep)
MessageRequester("rep_courant apres changement : ",rep,0)