Creer liste de tous les repertoires et sousrepertoires d'un disque dur

Soyez le premier à donner votre avis sur cette source.

Vue 4 065 fois - Téléchargée 463 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_guyvdv
Messages postés
101
Date d'inscription
samedi 16 mars 2002
Statut
Membre
Dernière intervention
19 mai 2011
1 -
Cher DHKold,
C'est vrai, ton script est beaucoup plus beau, et le form est bc plus beau aussi.Cela reduit naturellement le processus
merci et a bientot
guy van der velden
DHKold
Messages postés
153
Date d'inscription
vendredi 6 décembre 2002
Statut
Membre
Dernière intervention
29 mai 2005
-
C'est bien pour un début, mais ton programme regarde tous les fichiers, tu gagnerais du temps si il regardait seulement les dossiers. Je te donne un exemple de programme au lien:
http://www.vbfrance.com/article.aspx?Val=6804

------
Dat is mooi maar niet zo vlud dan als je alleen de directories zoek. Ik geef je een voorbeeld:
http://www.vbfrance.com/article.aspx?Val=6804
En sorry, ik spreek alleen een beetje Neederlands ;)

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.