[..] FileListToArray exploiter résultats

[jcaspar]

B onjour à tous !
J'ai bien réussi à utiliser la fonction FileListToArray3
http://www.autoitscript.fr/forum/viewto ... 442#p16442

Celle ci me permet de lister le contenu d'un dossier et d'un sous dossier.
mais comment récupérer les informations obtenues par cette fonction
pour renommer tous les fichiers word ...
Filefindfirstfile ne descend apparement pas dans les sous repertoires ....

Je vous remercie d'avance pour votre aide et vos explications !

Code : Tout sélectionner

#include<Array.au3>
#include<FileListToArray3.au3>

$ar_Array = _FileListToArray3 ("c:\appli", "*.doc", 1, 1, 1,"Temp|TMP")
_ArrayDisplay($ar_Array, "Liste fichier")  ;

While 1
 $search = FileFindFirstFile("*.*") 
 $file = FileFindNextFile($search) 
    If @error Then ExitLoop
      MsgBox(4096, "File:", $file)
     FileFindFirstFile("*.*")  
    
     IF  StringInStr($file,".doc") then
        
    $string=StringReplace($file,"entreprise"," ",0)
 msgbox(64,"test","L'Ancien nom est "&$file&@crlf& "Nouveau nom"&@crlf&$string,50)
         
 FileMove ($file, $string)
    
 IF  StringInStr($file," ") then
     FileRecycle($file)
 EndIf
 Endif
 WEnd
 FileClose($search)
 

[matwachich]

Déjà, utilisez plutôt _RecFileListToArray, plus récente, plus rapide, plus simple..... (recherche sur le forum)
Et ensuite, pourquoi faire FileFind... alors que c'est exactement ce que fait la fonction de recherche?????!!!

Un exemple:

Code : Tout sélectionner

$List = _RecFileListToArray($dossier, "*.doc".....)
If Not IsArray($list) Then Exit MsgBox(0, "", "Aucun fichier trouvés")

For $i = 1 To $list[0]
    MsgBox(0, "Fichier N° " & $i, $list[$i])
    ; Et vous traitez vos fichiers
Next