EDITER L'ARBORESCENCE DES FICHIERS D'UN DISQUE DANS UN FICHIER TEXTE

Signaler
Messages postés
14823
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
9 octobre 2021
-
Messages postés
162
Date d'inscription
jeudi 30 septembre 2004
Statut
Membre
Dernière intervention
17 novembre 2010
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/25427-editer-l-arborescence-des-fichiers-d-un-disque-dans-un-fichier-texte

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....
Afficher les 7 commentaires