[Batch] Renommer fichiers XML à partir des <elements>

Salut a toi !
Pour renomer j'ai été obliger de viré les <>/\: car on peut pas renommer avec des char spéciaux ^^
Voila le code qui devrais d'aider :

Code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
	Dim stFichier 'Nom du Fichier a tester  ,i
	Dim oFSO,oFl ,fso , ContenuFichier,Fichier,fichier_split
	Dim data, NewStrPath
		Set oFSO = CreateObject("Scripting.FileSystemObject") 
		stFichier = "D:\Vitogaz\Base de données\Test.XML" 
	If oFSO.FileExists(stFichier) Then 
		Set oFl = oFSO.GetFile(stFichier) 
		If oFl.Size > 0 Then
		Set fso = CreateObject("Scripting.FileSystemObject")
	
	Set fichier = fso.opentextfile("D:\Vitogaz\Base de données\Test.XML",1)
	ContenuFichier = Fichier.readAll
	Fichier.close
	'msgbox de debug
	'msgbox(ContenuFichier)
	fichier_split = Split(ContenuFichier,VBnewline)
	Fichier.close
	'Dans la varible data on vas rentrer le string corespondant au format souhaiter 
	'BACKUP<id>backupmachine<id/><id>backupmachine<id/><date>08-01-2019</date><time>18:25</time><time>00:25</time>.XML 
	NewStrPath = "BACKUP" & fichier_split(1) &"_" & fichier_split(4) & "_" & fichier_split(7) &"_"& fichier_split(8) &"_"& fichier_split(12)

		'MsgBox(NewStrPath)     'Msgbox pour debog

	'On retire les <\/: ect on les remplcera par des _(pour les :)			
	'Fonction VBS pour retirer les caractères accentués
	Dim ListeCaracteresDorigine, ListeCaracteresRemplacement, ArrayCaracteresDorigine, ArrayCaracteresRemplacement, CompteurTableau,MaChaine
	ListeCaracteresDorigine = "<;>;/;:;\"
	ListeCaracteresRemplacement = ";;;;_;"
	ArrayCaracteresDorigine = Split(ListeCaracteresDorigine, ";")
	ArrayCaracteresRemplacement = Split(ListeCaracteresRemplacement, ";")
	For CompteurTableau = Lbound(ArrayCaracteresDorigine) To Ubound(ArrayCaracteresDorigine)
		NewStrPath = Replace(NewStrPath, ArrayCaracteresDorigine(CompteurTableau), ArrayCaracteresRemplacement(CompteurTableau))

	Next

	NewStrPath = "D:\Vitogaz\Base de données\" & NewStrPath & ".XML"

	MsgBox(NewStrPath)     'Msgbox pour debog
	'Renomer le fichier
	oFl.Move NewStrPath
  End If
End If

Le code est a adapter à ta sauce :zoubi: