Lister des fichiers

Lister des fichiers - VB/VBA/VBS - Programmation

Marsh Posté le 22-06-2007 à 16:11:51    

Bonjour,
 
Au boulot, on doit extraire un listing de toutes les extentions mp3, wma, avi & co.
 
J'ai donc fais ceci en VBscript :
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set colFiles = objWMIService.ExecQuery _
    ("Select * from CIM_DataFile where Extension = 'mp3' OR Extension = 'wma'" )
For Each objFile in colFiles
    Wscript.Echo objFile.Name  
Next
 
Seulement, il me sort uniquement les fichiers sur c:, or j'ai besoin du d: Comment le forcer à voir ce qu'il y a du d: ?
 
Merci d'avance :jap:


Message édité par statoon le 22-06-2007 à 16:12:01

---------------
19°, tu as froid ? mets un pull !
Reply

Marsh Posté le 22-06-2007 à 16:11:51   

Reply

Marsh Posté le 22-06-2007 à 16:20:00    

je te propose une alternative en .bat toute faite:
je prends comme fichier résultat D:\recherche.txt
et je me limite dans l'exemple au disque d:
il te suffit d'ajouter les lignes avec c:\, e:\ etc. :)
 

Code :
  1. del d:\Recherche.txt
  2. dir d:\*mp3* /s >d:\Recherche.txt
  3. dir d:\*wma* /s >>d:\Recherche.txt
  4. dir d:\*avi* /s >>d:\Recherche.txt
  5. dir d:\*mpg* /s >>d:\Recherche.txt

Reply

Marsh Posté le 22-06-2007 à 16:28:38    

génial :love:
 
Tout simple, et efficace !!!
 
Merci beaucoup :jap:


---------------
19°, tu as froid ? mets un pull !
Reply

Marsh Posté le 22-06-2007 à 16:32:19    

ah par contre sur w2003 ca ne fonctionne pas ...
 
ca me dit fichier introuvable, alors qu'il y en a un paquet ... :??:


---------------
19°, tu as froid ? mets un pull !
Reply

Marsh Posté le 22-06-2007 à 16:41:35    

commence par créer un fichier d:\recherche.txt bidon pour voir ?

Reply

Marsh Posté le 22-06-2007 à 18:41:53    

je suis rentré chez moi là :D
 
Je teste ca lundi matin.
 
Merci pour tes réponses.


---------------
19°, tu as froid ? mets un pull !
Reply

Marsh Posté le 25-06-2007 à 08:12:36    

je viens de tester et rien.
 
De plus, quand j'indique *mp3* il me mets des fichiers qui n'ont rien à voir avec des mp3...


---------------
19°, tu as froid ? mets un pull !
Reply

Marsh Posté le 25-06-2007 à 08:44:13    

Sinon n'y a t-il pas une commande qui puisse exporter le résultat d'une recherche windows ? :)


---------------
19°, tu as froid ? mets un pull !
Reply

Marsh Posté le 25-06-2007 à 09:12:50    

essaie les memes commandes sans le * après les mp3, avi etc.
d:\*mp3 en gros :)

Reply

Marsh Posté le 25-06-2007 à 09:18:25    

j'ai enlevé la lettre de destination, pour donner ceci
 
dir *.mp3 /s >> mp3.doc et là c'est OK.
 
Mauvais point sur un autre serveur, j'ai des fichiers endommagé, donc ca stoppe la recherche, c'est moyen.
 
En tout cas, merci pour ton aide ;)=


---------------
19°, tu as froid ? mets un pull !
Reply

Marsh Posté le 25-06-2007 à 09:18:25   

Reply

Marsh Posté le 25-06-2007 à 09:29:17    

oui, j'ai connu ce pb, pareil qu'avec les fichiers cryptés... Pas de solution sous la main :(

Reply

Marsh Posté le 25-06-2007 à 09:35:52    

:/
 
 
Autre probleme .. j'ai des répertoires trop long, et DOS n'aime pas, du coup il s'arrete ...  
 
 
As tu une autre solution sous la main ?


---------------
19°, tu as froid ? mets un pull !
Reply

Marsh Posté le 25-06-2007 à 09:37:08    

euh ,qu'entends tu par trop long ?

Reply

Marsh Posté le 25-06-2007 à 09:43:01    

ce genre de chemin :  
 
D:\FPROD\Global\Reference\Base direction developpement\Commerci\EX PART\COURRIERS GENERIQUES - MAILINGS\Courrier - Réunions\Courriers\2000\courrier 2000 nouvelle formule à partir du 17-04\COURRIERS GENERIQUES - MAILING\ENVOI FICHE TRIMESTRIELLE


---------------
19°, tu as froid ? mets un pull !
Reply

Marsh Posté le 25-06-2007 à 09:46:36    

ouep... plus de 255 caractères...
et quand les noms de fichiers sont trop long ca plante ou ca rame ??

Reply

Marsh Posté le 25-06-2007 à 09:49:07    

ca plante.
Ca dit qu'il est trop grand, et ca stope.


---------------
19°, tu as froid ? mets un pull !
Reply

Marsh Posté le 25-06-2007 à 10:21:21    

pas d'autres idées ?


---------------
19°, tu as froid ? mets un pull !
Reply

Marsh Posté le 25-06-2007 à 10:57:27    

on peut faire ca en vba,
mais le coup du nom> 255 caractères sera toujours un élément stoppant...

Reply

Marsh Posté le 25-06-2007 à 11:07:48    

ouais :/
 
Je vais regarder s'il n'y a pas un logiciel qui va bien.


---------------
19°, tu as froid ? mets un pull !
Reply

Sujets relatifs:

Leave a Replay

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