VBS Lister les fichiers d'un répertoire et sous repertoire

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBS Lister les fichiers d'un répertoire et sous repertoire

daniel-12

Bonsoir
je cherche à extraire la liste de fichiers d'un répertoire, et de ses sous répertoires

j'ai trouvé et adapté cela et ça marche
mais
- je voudrais pouvoir choisir plusieurs extensions (ex: JPG, GIF, BMP)
- et si possible avoir le choix sur plusieurs start_folder

sauriez vous comment l'écrire, simplement

Code :

start_folder = "E:24 Photo"
htmfile = "Liste.txt"
ext = "jpg"
count=0
Set fso = CreateObject("Scripting.FileSystemObject";)
Set folder = fso.GetFolder(start_folder)
Set ws = CreateObject("WScript.Shell";)
'Set outfile = fso.CreateTextFile(htmfile)
Set outfile = fso.openTextFile(htmfile,8,true)
ListDirectory folder, ext
outfile.Close
msgbox "fini"
on error resume next
Sub ListDirectory(folder, ext)
For Each file In folder.Files
If UCase(ext) = UCase(fso.GetExtensionName(file.Name)) Then
outfile.WriteLine file.Path
count=count+1
End If
Next
For Each fldr In folder.subfolders
ListDirectory fldr, ext
Next
End Sub

Message édité par daniel-12 le 18-05-2017 à 21:51:09

Publicité

kiki29

Salut, c'est du VBA/Excel

https://excel.developpez.com/telech [...] 32-64-Bits
https://excel.developpez.com/telech [...] plus-Liens
https://excel.developpez.com/telech [...] un-dossier
https://excel.developpez.com/telech [...] borescence

Les versions via les APIs sont les plus rapides par rapport aux Dir/FSO
https://www.developpez.net/forums/d [...] ost8263278

Message édité par kiki29 le 19-05-2017 à 03:18:35

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

aldo13000

Salut,

Oui avec un or pour remplacer la ligne 18 :
If (UCase(fso.GetExtensionName(file.Name))="QSC" ) or

(UCase(fso.GetExtensionName(file.Name))="TXT" ) Then

Message édité par aldo13000 le 19-05-2017 à 13:10:52

---------------

daniel-12

Kiki, je vais m'inscrire et regarder ce que tu proposes
Aldo, je garde ta proposition sous le coude, mais en y réfléchissant bien, je pense que je peux extraire tous les fichiers, peu importe l’extension

je soucis que j'ai eu aujourd'hui, c'est que je fais ma recherche sur un serveur...et c'est long, long
beaucoup plus long que si je faisait la même chose sur C:

une idée d'ou cela vient et comment améliorer la rapidité ?

Message édité par daniel-12 le 19-05-2017 à 19:45:18

rat de combat

attention rongeur méchant!

Au risque d'être complètement HS
un simple dir /s /b *.jpg *.gif *.bmp > liste.txt ou dir /s /b * > liste.txt en console ne suffirait pas? Attention par contre avec les charset, il faudra éventuellement faire une conversion pour que les les caractères accentués soient affichés correctement.

daniel-12

ben pour aller sur ce serveur, en commande dos, je ne peux même pas y aller (serveur unix ?, ché pas)

par contre il n'y a pas de caractère accentués, c'est déjà ça
ni de nom de répertoire ou fichier avec espace, c'est aussi bien ce ce côté

daniel-12

kiki, j'ai testé tes macros
elles sont bien
reste a voir la rapidité dans mon cas avec le serveur

kiki29

Salut, je n'ai plus cette possibilité de tester sur un serveur, donc reste à voir en faisant les tests : appli installée ou pas sur le serveur ( quand les mutawas l'autorisent ) , tout en sachant qu'un réseau ralentit toujours.

Message édité par kiki29 le 21-05-2017 à 00:29:07

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

daniel-12

le serveur, je ne peux que y lire

appli installée ? que veux tu dire ?
qu'il est préférable de mettre le fichier excel sur le serveur pour faire l'extract depuis cet endroit
j'y avais pensé avec mon vbs

c'est quoi les mutawas ?

Spoiler :

j'ai regardé sur google, je pense comprendre ce que tu veux dire :lol:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBS Lister les fichiers d'un répertoire et sous repertoire

Sujets relatifs
Lister les différences de types de données entre les colonnes clés	Extraction de données de logs dans un répertoire vers Excel
Macro Replace entre 2 fichiers excel	[RESOLU] FTP - indiquer répertoire source
RUNAS : introduire dans un VBS le droit d'executer le logicielen admin	DOS - Déplacer fichiers contenus dans des sous dos
[RESOLU]FTP copie/deplacement de fichiers	[Résolu] OpenFileDialog: manipuler des fichiers "ajouter/enregistrer"
Creer repertoire en ligne	Creer repertoire en ligne
Plus de sujets relatifs à : VBS Lister les fichiers d'un répertoire et sous repertoire

Page générée en 0.064 secondes