repérer les fichiers jpg sur un disque en VBS

Question

Bonjour,
Existe t-il une commande VBS pour lister dans un fichier tous les jpg se trouvant sur mon poste?
merci

cs_Exploreur · Answer

Salut,

Ben déjà, il faut parcourir tout ton HDD, avec une fonction(pleins d'exemples sur le site) qui recherche un certains type de fichiers là en l'occurance des fichier jpg, puis à chaque fois que tu en trouve un(via la fonction), tu n'as plus qu'à enregistrer dans un fichier texte, le chemin + nom du fichier trouver....

Recherche déjà sur le site avec le moteur de recherche :
- Lister fichiers
- Fichier
- Lister répertoire
- Chercher fichier
- Etc...etc...

Je pense que tu vas vite trouver ton bonheur

A+
Exploreur

cs_JMO · Answer

Bonsoir,

Comme le dit notre ami "Exploreur", c'est simple et il suffit de l'écrire....
Et comme d'habitude, le code étant tellement lisible, j'ai omis les commentaires.
J'ai testé at home....on en collectionne des .jpg !!!!

Option Explicit
Const strPath = "D:"   'le disque pour le fichier résultat
Const ForWriting = 2



Dim fso, strComputer
Dim objWMIService, colFiles, objFile, ObjTextStream, Resultat
strComputer = "."



Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Extension = 'jpg'") 



For Each objFile in colFiles
    Resultat = Resultat &vbCrLf& objFile.Name
Next



Set fso = CreateObject("Scripting.FileSystemObject")
Set ObjTextStream = Fso.OpenTextFile(strPath & "resultat.txt", ForWriting, True)
ObjTextStream.Write Resultat
ObjTextStream.Close



Set ObjTextStream = Nothing
Set objWMIService = Nothing
Set colFiles =  Nothing
Set fso = Nothing



'Affichage du fichier résultat
Dim WshShell, intReturn
Set WshShell = WScript.CreateObject("WScript.Shell") 
intReturn = WshShell.Run("notepad " & strPath & "resultat.txt", 1, False) 
Set WshShell = Nothing


jean-marc

cs_kpass · Answer

Merci à vous pour ces réponses.

cs_Exploreur · Answer

Bonsoir JMO,

Quelle référence faut-il déclarer pour  : Set WshShell 

Merci d'avance pour ta réponse.

A+
Exploreur

cs_Exploreur · Answer

Salut Kpass,


Tiens voici aussi en complément de la solution de JMO, une source fort intéressante ici , Une source de Programmix, qui explique le recherche de fichiers récursive via 3 méthodes..

A+
Exploreur

Repérer les fichiers jpg sur un disque en VBS

5 réponses

Votre réponse

Discussions similaires