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

Soyez le premier à donner votre avis sur cette source.

Vue 9 947 fois - Téléchargée 976 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
Messages postés
162
Date d'inscription
jeudi 30 septembre 2004
Statut
Membre
Dernière intervention
17 novembre 2010

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,
@+ !
Messages postés
20
Date d'inscription
mercredi 26 octobre 2005
Statut
Membre
Dernière intervention
5 novembre 2009

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.
Messages postés
1
Date d'inscription
jeudi 19 janvier 2006
Statut
Membre
Dernière intervention
19 janvier 2006

Comment cela marche-t-il ??? Merci
Messages postés
17
Date d'inscription
jeudi 11 septembre 2003
Statut
Membre
Dernière intervention
10 novembre 2005

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....
Messages postés
14769
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
13 février 2021
151
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.