Menu d'apres dossier
Publié : 21.10.2004 - 21h37 par Krynn
Ca fait un moment que je voulais mettre un petit menu droulant avec les choix des modules pour Memory.
Et je me suis dit que ca devait etre compliqué de lister un dossier complet pour afficher ses sous dossiers.
Je me suis mis hier soir a la tache et apres qq tentative j'ai reussi a pondre ca en un peu plus d'une heures
- je declare VarPathEasy comme chemin d'acces
- je mets VarPathEasy&"/DATA" comme dossier par défaut
- je mets dans Liste les noms des dossiers
- je supprime de liste la première ligne qui est ".."
- je fais une boucle pour trouver la ligne qui contient "sons" et la supprimer
- j'affiche Liste dans le bouton déroulant
Si jamais ca permet a qqun de ne pas se creuser la tete
PS: VarPathEasy contients le chemin d'acces à la pile.
Et je me suis dit que ca devait etre compliqué de lister un dossier complet pour afficher ses sous dossiers.
Je me suis mis hier soir a la tache et apres qq tentative j'ai reussi a pondre ca en un peu plus d'une heures
On InizialiseButtonModule
global VarPathEasy
set the defaultFolder to VarPathEasy&"/DATA"
put the folders into Liste
delete first line of Liste
repeat with x = 1 to the number of lines of Liste
if line x of Liste = "Sons" then
delete line x of Liste
end if
end repeat
set the text of btn "Module" to Liste
end InizialiseButtonModule
- je declare VarPathEasy comme chemin d'acces
- je mets VarPathEasy&"/DATA" comme dossier par défaut
- je mets dans Liste les noms des dossiers
- je supprime de liste la première ligne qui est ".."
- je fais une boucle pour trouver la ligne qui contient "sons" et la supprimer
- j'affiche Liste dans le bouton déroulant
Si jamais ca permet a qqun de ne pas se creuser la tete
PS: VarPathEasy contients le chemin d'acces à la pile.