renommer fichiers en vrac

Bonjour à toutes et tous,

Depuis Access 2002, en VBA, je voudrais renommer tous les fichiers se trouvant dans un répertoire déterminé. Le nouveau nom devrait comporter une chaîne de caractères + le nom du fichier original.
exemple en ajoutant AA. au nom
C:\monfolder\
145.xls      devriendrait    AA.145.xls
A4789.txt   =         AA.A4789.txt

Qui pourrait m'aider ?
Merci d'avance.

 Bonjour,

Rien de plus simple avec fso.

jean-marc

Option Explicit
Dim Path  : Path = "d:\test1\"
Dim fso, Dossiers, fichier, fichiers
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossiers = fso.GetFolder(Path)
Set fichiers = Dossiers.Files

'pour chaque fichier de mon objet fichiers de mon objet fso...)
For Each fichier in fichiers
'MsgBox fichier.Name
fso.MoveFile fichier, Replace(fichier, fichier.Name, "AA_" & fichier.Name)
Next
Set Dossiers = Nothing
Set fichiers = Nothing
Set fso = Nothing
MsgBox "Rename des fichiers effectués !!!", vbInformation

Bonjour,

j'ai essayé ta solution mais j'obtiens un message d'erreur
erreur d'exécution : 70     Permission refusée et le débogage s'arrête sur

fso.MoveFile fichier, Replace(fichier, fichier.Name, "AA_" & fichier.Name)

Merci pour ta collaboration.

JL

 

 Re ,

Mon exemple n'est pas en vb6.
Il doit falloir référencer fso et rajouter des "dim As ......"
L'exemple de wape est en vb6.
Par contre, il n'est conseillé de nommer des fichiers avec des "."

jean-marc

Re bonjour à vous 2,

les 2 solutions fonctionnent bien.
Je pense que c'est parce que j'avais un C:\aa\ et que je souhaitais renommer mes fichiers avec AA     aussi ?
J'ai testé avec un autre répertoire et c'est magnifique.
Un grand merci à vous deux.
JL

 Re,

Pense à valider la proposition de "wape" puisqu'elle est en vb6.
Tu peux éventuellement rajouté les SubFolders.
(Par contre, il n'est pas conseillé de nommer des fichiers avec des ".")

jean-marc

Re-bonjour,

Tout baigne mais qu'elle serait la synthaxe pour éviter de renommer un fichier qui l'a déjà été donc dans ce cas, ne pas renommer les fichiers commençant par AA ?
merci

 Re,

'pour chaque fichier de mon objet fichiers de mon objet fso...:)
For Each fichier in fichiers
'MsgBox fichier.Name

If Left(fichier.Name, 3) = "AA_" Then
   Msgbox fichier.Name,,"Ce fichier a déjà été renommé !"
   Else
   fso.MoveFile fichier, Replace(fichier, fichier.Name, "AA_" & fichier.Name)
   End I
Next

jean-marc