Windows Scripts
VBScript
Rechercher un type de fichier (Extension)


Pour : Windows


Nous allons voir comment faire pour rechercher un type de fchier sur un disque dur.
Dans l'exemple ci-desous nous allons rechercher tous les fichiers qui ont l'extension "pst" sur la totalité du disque "C:\".

Exemple:

'*** Création des variables d'environnement
Set Shell = CreateObject("wscript.Shell")
Set env = Shell.environment("Process")

strComputer = env.Item("Computername")
wscript.echo strComputer

set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colFiles = objWMIService.ExecQuery ("Select * from CIM_DataFile Where Extension = 'pst' and Drive = 'C:'")

'*** Boucle For pour lister tous les fichiers qui ont l'extension "pst"
For Each objFile in colFiles
    Wscript.Echo "Dossier => " & objFile.Drive & objFile.Path
    Wscript.Echo "Nom     => " & objFile.FileName & "." & objFile.Extension
    Wscript.Echo "Taille  => " & objFile.FileSize & " Octets"
    Wscript.Echo "--------------------------------------------"
Next

'*** Destruction des objets
Set Shell = Nothing
Set env = Nothing

WScript.Quit

Maintenant en plus de rechercher les fichiers qui ont l'extension "pst", nous allons les copier dans le répertoire "c:\Save\".

Exemple:

>
'*** Création des variables d'environnement
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set Shell = CreateObject("wscript.Shell")
Set env = Shell.environment("Process")

strComputer = env.Item("Computername")
wscript.echo strComputer

set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colFiles = objWMIService.ExecQuery ("Select * from CIM_DataFile Where Extension = 'pst' and Drive = 'C:'")

'*** Boucle For pour lister tous les fichiers qui ont l'extension "pst"
For Each objFile in colFiles
    Wscript.Echo "Dossier => " & objFile.Drive & objFile.Path
    Wscript.Echo "Nom     => " & objFile.FileName & "." & objFile.Extension
    Wscript.Echo "Taille  => " & objFile.FileSize & " Octets"

'*** Copie les fichiers dans "c:\Save\"
    fso.CopyFile  objFile.Drive & objFile.Path & objFile.FileName & "." & objFile.Extension, "c:\Save\"
    wscript.echo " [OK] Copie fichier"
    Wscript.Echo "--------------------------------------------"
Next

'*** Destruction des objets
Set fso = Nothing
Set Shell = Nothing
Set env = Nothing

WScript.Quit

Par O.Cédric
Sur www.octetmalin.net

Article publié le:
13/01/2015 09:38

Cette page vous à plus?

Dîtes que vous l'aimez en cliquant sur le bouton Facebook.

Contact - Informations -