Renommer tous les fichiers d'un dossier
Contenu du snippet
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
Compatibilité : VB 2005, VB 2008
Disponible dans d'autres langages :
A voir également
- Renommer tous les fichiers d'un dossier
- Relier un dossier ✓ - Forum PHP
- Vscode rechercher dans tous les fichiers ✓ - Forum Visual Basic 6
- Rechercher des fichiers commençant par le même nom ✓ - Forum VB.NET
- Search & Replace dans TOUS les fichiers d'un dossier. ✓ - Forum VB.NET
- Rechercher/Remplacer dans un fichier ✓ - Forum VB.NET
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.