L’ API "GetFileAttributes" permet de lire les attributs d'un fichier ou d'un dossier.

 

 

#Variable globale

gsCheminSD est une chaîne

 

 

#Procédure locale ChercheSD

PROCEDURE ChercheSD()

 

fListeRépertoire("\","TypeRep")

Info("La SD Card se nomme : "+gsCheminSD)

 

#Procédure locale TypeRep

PROCEDURE TypeRep(Chemin,Nomrépertoire,Change,Pointeur)

 

TYPE_SD      est un entier = 272

_Type        est un entier

 

SI Change = Vrai ALORS

       _Type = API("coredll","GetFileAttributesW",Chemin)

       SI _Type = TYPE_SD ALORS

             gsCheminSD = Chemin

       FIN

FIN