Editer l'arborescence des fichiers d'un disque dans un fichier texte

5/5 (7 avis)

Vue 10 077 fois - Téléchargée 983 fois

Description

Ce programme permet de lister le contenu d'un disque ou d'un répertoire.
Cette liste se présente sous la forme de l'ancienne commande "tree" de MS-DOS.
La liste est éditée dans une fenètre et dans un fichier texte (.doc ou .txt) nommé FicOut.doc.
Le défilement de scroll permet de visualiser l'avancement des traitements.
On peut définir un niveau d'indexation des sous-répertoires
On peut choisir de ne lister que les répertoires

A quoi ça sert?
Et bien, pour moi, ça me servira à visualiser le contenu de mon disque sous une forme éditable sur n'importe quel système
Un fichier .doc ou .txt prend un minimum de place.
Et je peux faire une édition papier pour y apporter des correctifs avant de les appliquer sur le disque.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Choumoumou
Messages postés
162
Date d'inscription
jeudi 30 septembre 2004
Statut
Membre
Dernière intervention
17 novembre 2010

8 mars 2006 à 14:05
Alors là... Je pense qu'il faut y aller avec un FileList et un DirList, mais je ne suis pas sûr qu'ils prennent en compte les noms de fichiers aussi longs.. En tout cas, ce n'est pas avec le Dir de MsDos que tu réussira ! (MsDos à l'habitude de remplacer les noms plus grands que 8 charactère par un nom du style PROGRA~1.EXE. Aucune chance que ce soit mieux avec plus de 64 charactères !).

En tout cas, si le choix du filelist est le bon, le code est :


Dim i%,dossier$
Dir1.Path = dossier ' Met Dir1 au bon endroit,
File1.Path = Dir1.Path ' Ainsi que File1,
' Ecrit le nom du dossier de départ dans Debug
debug.print "[ " & Dir1.Path & " ]"
For i = 0 To (File1.ListCount - 1)
' Ecrit le nom du fichier dans Debug
debug.print " - " & File1.List(i) & " -"
Next i
For i = 0 To (Dir1.ListCount - 1)
' Ecrit le nom du dossier dans Debug
debug.print " [ " & Dir1.List(i) & " ]"
Next i

voilà, en espérant t'être venu en aide,
@+ !
mvery
Messages postés
20
Date d'inscription
mercredi 26 octobre 2005
Statut
Membre
Dernière intervention
5 novembre 2009

8 mars 2006 à 13:47
J'aimerais de l'aide pour creer un programme qui liste (dans un repertoire choisis) les arborescence de fichiers qui font plus de 256 caracteres et les nom de fichier de plus de 64 caracteres.
je ne pense pas etre capable de le faire tous seul, mais je compte essayer (soyont fou).
Si quelqu'un peut au moins me metre sur le bon chemin.
alexeleo
Messages postés
1
Date d'inscription
jeudi 19 janvier 2006
Statut
Membre
Dernière intervention
19 janvier 2006

19 janv. 2006 à 16:37
Comment cela marche-t-il ??? Merci
mareluc
Messages postés
17
Date d'inscription
jeudi 11 septembre 2003
Statut
Membre
Dernière intervention
10 novembre 2005

15 déc. 2005 à 10:24
Vous fachez pas, les enfants!!
Choumoumou: tu m'as fais un grand plaisir avec ton commentaire et je t'en remercie vivement
NHenry: J'avais pris le tien comme une preuve d'intéret à mon programme, et je t'en remercie aussi
Joyeuses fètes à vous deux ainsi qu'à votre ménagerie....
NHenry
Messages postés
14997
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
24 septembre 2022
158
15 déc. 2005 à 10:05
Mon commentaire date de plus de 1 ans, j'ai changé depuis, et je n'ai jamais pensé ce que tu me fais dire.
Afficher les 7 commentaires

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.