Nouvel élément qui peut intéresser quelques uns qui en auraient besoin; qu'en pensez-vous ?

La propriété Name d'un objet File ou Folder étant en Lecture / Ecriture, elle peut être utilisée pour renommer l'un ou l'autre objet sans avoir besoin de le déplacer. Le renommage étant instantané :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Dim fso, FL, FD
Set fso = CreateObject("Scripting.FileSystemObject")
 
Set FL = fso.GetFile("C:\Temp\Fichtest.txt")
     FL.Name="Fichier.bak" ' Nouveau nom du fichier
Set FD = fso.GetFolder("C:\Temp")
 
FD.Name = "Temp.Temp" 'Nouveau nom du dossier
Set fso = Nothing
Set FL = Nothing
Set FD = Nothing
Juste une restriction : Le fichier ne doit pas être ouvert par quelque processus que ce soit, sinon on le ferme par l'instruction FL.Close, le dossier ne doit pas non plus être ouvert ou contenir des fichiers en cours d'utilisation.