[Ex] Recherche et copie

Partagez vos scripts, et vos applications AutoIt.
Règles du forum
.
Répondre
Avatar du membre
SmErT
Niveau 2
Niveau 2
Messages : 21
Enregistré le : jeu. 05 nov. 2009 11:15
Localisation : Algérie
Status : Hors ligne

[Ex] Recherche et copie

#1

Message par SmErT »

Salut a tous.
voila c'est a partir d'un script Batch que m'ai venu une idée :idea:

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+
Avatar du membre
matwachich
Membre émérite
Membre émérite
Messages : 986
Enregistré le : lun. 19 oct. 2009 04:04
Localisation : Algérie
Status : Hors ligne

Re: [Ex] Recherche et copie

#2

Message par matwachich »

Ouai! c'est vrai que _filelisttoarrayXT n'en fini pas de nous rendre de TRES précieux services!!!
Sortons VW du coté obscure! - La curiosité est un vilain défaut! Cliquez ici
Répondre