[Ex] Recherche et copie
Posté : mar. 16 mars 2010 21:17
Salut a tous.
voila c'est a partir d'un script Batch que m'ai venu une idée
Un script qui recherche des types de fichiers (par extension), crée une liste puis copie tous sa dans un répertoire.
je ne sais pas si sa vous serra utile mais bon.
un grand merci pour ani et Tlem la fonction _FileListToArrayXT ma bien été utile
a+
voila c'est a partir d'un script Batch que m'ai venu une idée
Un script qui recherche des types de fichiers (par extension), crée une liste puis copie tous sa dans un répertoire.
Code : Tout sélectionner
#include <Array.au3>
#include <FileListToArrayXT.au3>
#include <File.au3>
$sPath = "c:\"
$sFilter = "*.mp3;*.ogg;*.wma;*.acc"
$iRetItemType = 0
$iRetPathType = 1
$bRecursive = true
$sExclude = ""
$iRetFormat = 1
$sFile="c:\musique.txt"
;Recherches des fichies avec les extantion "*.mp3;*.ogg;*.wma;*.acc"
$search=_FileListToArrayXT($sPath, $sFilter, $iRetItemType, $iRetPathType, $bRecursive, $sExclude, $iRetFormat)
;Creation de la liste de fichier rechercher.
_FileWriteFromArray($sFile, $search, 1)
;test de la liste de fichier recherche.
Dim $aFind
If Not _FileReadToArray("d:\musique.txt",$aFind) Then ;test de la liste de fichier recherche.
MsgBox(4096,"Error", " Pas de fichier de Musique dans le disque.")
Exit
EndIf
;Creation du repertoire c:\Musique
DirCreate("C:\Musique")
;Copie des fichier de la liste des fichiers recherche dans C:\Musique
For $x = 1 to $aFind[0]
FileCopy($sPath & $aFind[$x], "C:\Musique")
Next
je ne sais pas si sa vous serra utile mais bon.
un grand merci pour ani et Tlem la fonction _FileListToArrayXT ma bien été utile
a+