[..] Modifier nom de fichiers d'un dossier

[jcaspar]

B onjour à tous !

Je souhaiterais modifier les noms de fichiers word sur un dossier complet
pouvez vous svp m'expliquer comment faire ?

exemple modifier nomfichier.doc en nouveaunom.doc

Merci d'avance pour vos conseils et suggestions

Code : Tout sélectionner

#NoTrayIcon
#Include <File.au3>
#include <Array.au3>

global $message="Selectionner le dossier "
global $dest

$scriptdir = FileOpenDialog($message, @WindowsDir & "\", "(*.*)",1+4)
$liste=_FileListToArray($scriptdir)
_ArrayDisplay($liste,"$FileList")

[TT22]

Tien, voila ta solution :

► Afficher le texte

Code : Tout sélectionner

#include <File.au3>

$search = FileFindFirstFile(@ScriptDir&"\*.*")

$nouveaunom = "" ; MET LE NOUVEAU NOM ICI
$num = 0
While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    $filetest = FileOpen($file,0)
    If $filetest <> -1 Then
        FileDelete(@ScriptDir&"\TMP")
        FileWrite(@ScriptDir&"\TMP",$file)
        $test = _ReplaceStringInFile(@ScriptDir&"\TMP",".doc","")
        If $test <> 0 Then
        $num = $num + 1
         FileMove(@ScriptDir&"\"&$file,@ScriptDir&"\"&$nouveaunom&" "&$num&".doc")
         EndIf
        FileDelete(@ScriptDir&"\TMP")
    EndIf


WEnd

FileClose($search)

Tu as juste à modifier la variable $nouveaunom qui indique le nouveau nom des fichiers.

[PandiPanda]

je comprend pas ceci;

Je souhaiterais modifier les noms de fichiers word sur un dossier complet
pouvez vous svp m'expliquer comment faire ?

exemple modifier nomfichier.doc en nouveaunom.doc

Si votre dossier contient plusieur fichier .doc , comment voulez vous donnez le même nom pour tous les fichier?
sauf si vous accepter de faire ceci;
nouveaunom.doc ; nouveaunom_1.doc; nouveaunom_2.doc; etc ...

?

[TT22]

Dans mon script, j'ai fait :
nouveau nom 1.doc
nouveau nom 2.doc
nouveau nom 3.doc
etc...

[mikell]

un peu d'optimisation (pas testé mais devrait marcher)

► Afficher le texte

Code : Tout sélectionner

$search = FileFindFirstFile("*.doc")  
$n = 0
While 1
    $file = FileFindNextFile($search) 
    If @error Then ExitLoop
    $n += 1
    FileMove ($file, "nouveau_nom" & $n & ".doc")
WEnd
FileClose($search)
 

[TT22]

Oui, la méthode de mikell fonctionne.

[Iste]

On peut aussi sélectionner tout les fichier et faire renommer...

Si il ne s'agit pas d'une fonctionnalité d'un script plus gros, évitons de réinventer la roue.