Réponse acceptée !
Salut,
Voici deux exemples de code possible :
Le premier exclus les sous-dossiers :For Each files
As String In My.Computer.FileSystem.GetFiles(
"C:\Temp", FileIO.SearchOption.SearchTopLevelOnly)
' FileIO.SearchOption.SearchTopLevelOnly cherche uniquement dans ce dossier en excluant les sous-dossiers Dim Fi
As New System.IO.FileInfo(files)
' Instanciation du fichier trouvé My.Computer.FileSystem.RenameFile(files,
"photo" + Fi.Name)
' Renomme le fichier ' files contient le chemin d'accès du fichier à renommer ' Fi.Name contient le nom du fichier (par exemple, C:\test.jpeg >>> Fi.Name retourne test.jpeg)Next
Le deuxième inclus les sous-dossiers
For Each files
As String In My.Computer.FileSystem.GetFiles(
"C:\Temp", FileIO.SearchOption.SearchAllSubDirectories)
' FileIO.SearchOption.SearchTopLevelOnly cherche dans ce dossier en incluant les sous-dossiers Dim Fi
As New System.IO.FileInfo(files)
' Instanciation du fichier trouvé My.Computer.FileSystem.RenameFile(files,
"photo" + Fi.Name)
' Renomme le fichier ' files contient le chemin d'accès du fichier à renommer ' Fi.Name contient le nom du fichier (par exemple, C:\test.jpeg >>> Fi.Name retourne test.jpeg)Next
++
----------------------------------
Si la réponse vous convient : Réponse Acceptée