|
| Débuté par jeffelix13, 19 jan. 2005 11:17 - 3 réponses |
| |
| | | |
|
| |
| Posté le 19 janvier 2005 - 11:17 |
bonjour,
depuis 9h ce matin et je cherche comment mettre le contenu d'un repertoire dans un tableau
si quelqu un à la reponse ca m aiderai vachement bien
merci |
| |
| |
| | | |
|
| | |
| |
| Posté le 19 janvier 2005 - 11:29 |
| T'as essayé avec la fonction flistefichier? |
| |
| |
| | | |
|
| | |
| |
| Posté le 19 janvier 2005 - 11:49 |
J'ai un code pour une combo nommée List1:
ListeSupprimeTout(LIST1)
NbreFichiers=fListeFichier("a:\*.*","ListeFic")
SI NbreFichiers>0 ALORS // Des fichiers sont présents sur la disquette
LIST1..Visible=Vrai
...
FIN
"ListeFic" est une procédure qui contient ceci:
PROCEDURE ListeFic(Repertoire,Nom,Change,plCompteur)
Compteur est un entier
Compteur++
ListeAjoute(LIST1,Nom) |
| |
| |
| | | |
|
| | |
| |
| Posté le 19 janvier 2005 - 17:36 |
Salut,
Voici un bout de code qui rempli un Arbre (TreeView), avec épurage des dossiers cachés :
Code à inserer dans l'événement Click d'un arbre
//Explorer récursivement le repertoire du noeud sélectionner ////////////////////////////
sNoeud est une chaîne = ArbreSelect(MoiMême)
sDossier est une chaîne = fRep(Remplace(sNoeud, TAB, "\") + "\*", frRépertoire)
sAttribut est une chaîne
ResFichier est une chaîne
TANTQUE sDossier <> ""
sAttribut = fRepAttribut(Remplace(sNoeud, TAB, "\") + "\" + sDossier)
SI Remplace(sAttribut, "H", "") = sAttribut ALORS
ArbreAjoute(MoiMême, sNoeud + TAB + sDossier, aDéfaut, aDéfaut)
FIN
sDossier = fRep("", frRépertoire)
FIN
//Explorer récursivement le repertoire du noeud sélectionner ////////////////////////////
En espérant t'avoir aidé
Laurent_B |
| |
| |
| | | |
|
| | | | |
| | |
|