Les Snippets

Connexion

Renommer tous les fichiers d'un dossier

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 18/03/2011 11:25:06 et initié par Le Pivert [Liste]
Vue : 6321
Catégorie(s) : Fichier / Disque
Langages dispo pour ce code :
- VB 2005, VB 2008
- PHP 5



Langage : VB 2005 , VB 2008
Date ajout : 18/03/2011
Posté par Le Pivert [Liste]
Imports System.IO

'mettre dans un bouton

Dim i As Integer

' FileIO.SearchOption.SearchTopLevelOnly cherche uniquement dans ce dossier en excluant les sous-dossiers
For Each files As String In My.Computer.FileSystem.GetFiles("Chemin du dossier", FileIO.SearchOption.SearchTopLevelOnly) 
Dim Fi As New System.IO.FileInfo(files) ' Instanciation du fichier trouv

i = i + 1

If i <= 9 Then

My.Computer.FileSystem.RenameFile(files, "Nouveaunom 00" & i & Fi.Extension) ' Renomme le fichier

ElseIf i <= 99 Then

My.Computer.FileSystem.RenameFile(files, "Nouveaunom 0" & i & Fi.Extension) ' Renomme le fichier

Else

My.Computer.FileSystem.RenameFile(files, "Nouveaunom " & i & Fi.Extension) ' Renomme le fichier

End If

Next

Remarque :
renomme tous les fichier dans toutes les extensions
Langage : PHP 5
Date ajout : 28/03/2011
Posté par phpAnonyme [Liste]
class RenameFilesDir
{
    /** @var string $dir : Nom absolue du dossier AVEC un lien symbolique './dossier' ou '../dossier' */
    private $dir;
    /** @var string $prefix : Prefix des fichiers renommer */
    private $prefix;
    
    /** @param string $ini_extensions : sélection extension particulière, par défaut toutes les extensions */
    private $ini_extensions;
    
    /** @param int $ini_counter : simple compteur pour la partie suffixe */
    private $ini_counter;
    
    /**
     * Méthode magique constructeur
     */
    public function __construct($dirname, $prefix='newname', $ini_extensions='', $ini_counter=0)
    {
        $this->dir .= (preg_match('/\/$/', $dirname)) ? $dirname : $dirname.'/';
        $this->prefix = strval($prefix);
        $this->ini_extensions = strval($ini_extensions);
        $this->ini_counter = intval($ini_counter);
        if(!preg_match('/^\.{1,2}/', $this->dir))
            throw new Exception('Indiquer le dossier avec un lien symbolique : \'./dossier\' ou \'../dossier\'');
        if(!file_exists($this->dir))
            throw new Exception('Le dossier n\'a pas été trouvé');
        $this->rename();    
    }        
    
    /**
     * Renommage des fichiers
     */
    private function rename()
    {
        $it = new FilesystemIterator($this->dir);    
        foreach ($it as $fileinfo) {
            $current_file = $it->getFilename(); 
            if($it->isFile() && !$this->ini_extensions) 
                preg_match('/(.*)\.(.*)$/i', $current_file, $match);
            elseif($it->isFile())
                preg_match('/(.*)\.('.trim( $this->ini_extensions, '.' ).')$/i', $current_file, $match);
    
            if(isset($match) && sizeof($match)>1) {
                $old_file = $this->dir . $match[0];    
                $new_file = $this->dir. $this->prefix. (($this->ini_counter < 10) ? '0'.$this->ini_counter : $this->ini_counter). '.' .$match[2];    
                rename($old_file, $new_file);
                $this->ini_counter++;    
            }    
        }
    }
}

Snippets en rapport avec : Fichier, Dossier, Renommer, Extension



Codes sources en rapport avec : Fichier, Dossier, Renommer, Extension

{Visual Basic, VB6, VB.NET, VB 2005} RENOMMER TOUS LES FICHIERS D'UN DOSSIER PAR CLIC DROIT
Renommer tous les fichiers d'un dossier par clic droit sur ce dossier. Un menu contextuel sur les do...

{Foxpro} RENOMMER LE PRÉFIXE DE TOUS LES FICHIERS D'UN DOSSIER
Vous disposez d'un dossier où les noms de plusieurs fichiers commencent par la même chaine. Vous vo...

{PHP} PARCOURIR UN RÉPERTOIRE ET SES SOUS SOUS SOUS... RÉPERTOIRE ET RETOURNER LES FICHIERS QUI ONT L'EXTENSION VOULUE
Cette fonction va parcourir tous les répertoires et sous répertoires et sous sous répertoires et ......

{Delphi} CHANGE EXTENSION ET COPIE
Ce source sert à copier tout les fichier d'une certaine extension en d'autre fichiers d'une exte...

{Visual Basic, VB6, VB.NET, VB 2005} [VBS] FOLDER2FTPUPLOAD
C'est un Vbscript pour uploader un dossier avec tout son contenu (Tout les fichiers) dans votre serv...

{Visual Basic, VB6, VB.NET, VB 2005} MAGIC FILE NAME : RENOMMEZ VOS FICHIERS AUTOMAGIQUEMENT !
Magic File Name est un petit programme pour renommer tous vos fichiers selon les critères choisis. I...

{Visual Basic, VB6, VB.NET, VB 2005} MODIFIER LES EXTENSION DES FICHIERS
Ce programme permet de Modifier les extensions des fichiers selectionnés,par rapport à votre choix.....

{Delphi} RECHERCHE PAR EXTENSION AVEC JVCL
Voici un programme qui permet la recherche de fichier suivant l'extension choisie en utilisant le co...

{C / C++ / C++.NET} GESTION DE FICHIER ET DOSSIER + AUTRES
Petit code qui permet de gérer les fichiers et dossiers ainsi que d'autres fonctions. Je suis début...

{Javascript / DHTML} FAUX FURETEUR DE DOSSIER
Bon... mon titre n'est pas très explicite, je ne savais pas comment le décrire. En fait, il permet d...