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

VBS Lister les fichiers d'un répertoire et sous repertoire - VB/VBA/VBS - Programmation

Marsh Posté le 18-05-2017 à 19:40:17    

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 :
  1. start_folder = "E:24 Photo"
  2. htmfile = "Liste.txt"
  3. ext = "jpg"
  4. count=0
  5. Set fso = CreateObject("Scripting.FileSystemObject";)
  6. Set folder = fso.GetFolder(start_folder)
  7. Set ws = CreateObject("WScript.Shell";)
  8. 'Set outfile = fso.CreateTextFile(htmfile)
  9. Set outfile = fso.openTextFile(htmfile,8,true)
  10. ListDirectory folder, ext
  13. outfile.Close
  14. msgbox "fini"
  15. on error resume next
  16. Sub ListDirectory(folder, ext)
  17.     For Each file In folder.Files
  18.         If UCase(ext) = UCase(fso.GetExtensionName(file.Name)) Then
  19.             outfile.WriteLine file.Path
  20.             count=count+1
  21.         End If
  22.     Next
  23.     For Each fldr In folder.subfolders
  24.         ListDirectory fldr, ext
  25.     Next
  26. End Sub


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

Marsh Posté le 18-05-2017 à 19:40:17   

Reply

Marsh Posté le 19-05-2017 à 03:09:10    

Reply

Marsh Posté le 19-05-2017 à 13:07:12    

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

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

Reply

Marsh Posté le 19-05-2017 à 19:42:06    

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
Reply

Marsh Posté le 19-05-2017 à 21:20:04    

Au risque d'être complètement HS :o  
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.

Reply

Marsh Posté le 19-05-2017 à 21:53:51    

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é  :D

Reply

Marsh Posté le 20-05-2017 à 21:00:38    

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

Reply

Marsh Posté le 21-05-2017 à 00:16:51    

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
Reply

Marsh Posté le 21-05-2017 à 09:19:36    

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:  
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed