Bonjour,
Je souhaite faire un batch sur des fichiers en VBA et ca fait un peu que j'ai oublié les subtilités.
J'ai une serie de fichier avec un prefix commun : "ARRAYSCAN01_140715160003_" et je souhaite changer ce préfix par le prefix :"mamanip".

Comment dois-je m'y prendre ?

Merci pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub renommage()
Dim i As Integer
Dim fso
Dim RepC As String, Fichier As String, lefichier As String, nomavt As String, nomapre As String
i = 0
 
Rep = "I:\ARRAYSCAN01_140715160003-80-CP\test\images\ARRAYSCAN01_140715160003_"
Repfin = "I:\ARRAYSCAN01_140715160003-80-CP\test\images\test_"
 
' recupération des fichiers C01
RepC = Rep & "*C01"
Fichier = Dir(RepC)
 
' Boucle sur les fichiers de format xls du répertoire Rep
Do While Fichier <> ""
  ' selection du fichier à copier
 
Set fso = CreateObject("Scripting.FileSystemObject")
' fso.MoveFile "d:dummytest.txt", "d:dummytest2.txt"
 nomavt = "I:\ARRAYSCAN01_140715160003-80-CP\test\images\A.C01"
 nomapre = "I:\ARRAYSCAN01_140715160003-80-CP\test\images\B.C01"
fso.MoveFile nomavt, nomapre
 
i = i + 1
Fichier = Dir ' Fichier suivant
Loop
 
End
End Sub