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 |
Partager