Creer liste de tous les repertoires et sousrepertoires d'un disque dur
Description
Bonjour les amis,
Je suis hollandais, excuse moi pour ce francais aproximative.
Depuis un an je profite des source de vbfrance, et j'apprend beaucoup de ces contributions.
Maintenant je vien d'ecrire un petit program pour avoire une liste de TOUS les repertoire et les sousrepertoire d'un disque dur c:\
L'idée est d'ecrire cela sans de dll et famille, que je comprends pas encore.
Avec Dir-statement j'ecris dans la list1 tous les repertoires de la racine du disque dur.
Apres je lis cette liste de la premiere ligne jusqu' a la fin de la liste, en ajoutant chaque fois les sousrepertoires du repertoir lu dans la liste a ma liste.
Du moment ou je ne peu plus ajouter des sousrepertoire la ligne ne grandi plus, et j'arrive a la fin de la liste.
Imperativement la list1 doit etre sorted=false(faut)
Pour voir le resultat trié j'emploi la list2 avec list2.sorted=true(vrai).
Dans mon repertoire WinNT il y a un fichier "c:\winnt\??????", que je n'arrive pas a effacer, et qui gene baucoup le deroulement du programme, c'est pour cela que tu trouve instr(S1,"?") dan la source a la 91 lignes.
Ce n'ai qu'un essay, mes les commentaires j'accepte volontier.
Saluts les ami
Guy van der Velden
Je suis hollandais, excuse moi pour ce francais aproximative.
Depuis un an je profite des source de vbfrance, et j'apprend beaucoup de ces contributions.
Maintenant je vien d'ecrire un petit program pour avoire une liste de TOUS les repertoire et les sousrepertoire d'un disque dur c:\
L'idée est d'ecrire cela sans de dll et famille, que je comprends pas encore.
Avec Dir-statement j'ecris dans la list1 tous les repertoires de la racine du disque dur.
Apres je lis cette liste de la premiere ligne jusqu' a la fin de la liste, en ajoutant chaque fois les sousrepertoires du repertoir lu dans la liste a ma liste.
Du moment ou je ne peu plus ajouter des sousrepertoire la ligne ne grandi plus, et j'arrive a la fin de la liste.
Imperativement la list1 doit etre sorted=false(faut)
Pour voir le resultat trié j'emploi la list2 avec list2.sorted=true(vrai).
Dans mon repertoire WinNT il y a un fichier "c:\winnt\??????", que je n'arrive pas a effacer, et qui gene baucoup le deroulement du programme, c'est pour cela que tu trouve instr(S1,"?") dan la source a la 91 lignes.
Ce n'ai qu'un essay, mes les commentaires j'accepte volontier.
Saluts les ami
Guy van der Velden
Codes Sources
A voir également
- Creer liste de tous les repertoires et sousrepertoires d'un disque dur
- Dessin dur - Forum Delphi / Pascal
- Créer un mot caché - Forum C# / .NET
- Créer un mots mélés - Forum Java
- Créer un utilisateur mysql - Conseils pratiques -PHP
- Liste marque de voiture excel - Forum PHP
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.