Comment renommer un nom long de fichier

Bonjour,
Je suis novice sur le dev., donc merci d'être comprehensif si je pose trop de questions.. Mon problème est que, je suis en train d'écrire un script (vbs) afin d'afficher la derniere date de modification d'un type de fichier, ayant un nom long, contenu dans un repertoire.. Il peut y avoir plusieurs fichiers du même type mais incrémentés différemment. Par exple :
- FW19-000000000157210-BO00-DELIVERY_ORDER.txt
- FW20-000000000157211-BO01-DELIVERY_ORDER.txt
Mon script est OK, mais je ne sais pas comment : Renommer le nom_fichier afin que tous les fichiers soient parcourus?

Mon script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Set fso = CreateObject("Scripting.FileSystemObject" )   If fso.FileExists("C:\Temp\exempleXML\FW19-000000000157210-BO00-DELIVERY_ORDER.txt") = True Then Set oFile = fso.GetFile("C:\Temp\exempleXML\FW19-000000000157210-BO00-DELIVERY_ORDER.txt" ) dtmCreationDate = oFile.DateLastModified FileName = oFile.Name MsgBox (FileName & " : " & dtmCreationDate) Set oFile = Nothing Else MsgBox ("File not found") End if

---

Merci de votre retour ;)

pourquoi les renommer?

il est probablement plus simple de parcourir les fichiers présent dans le répertoire et de les traiter que de les renommer afin de les traiter.

je ne connais pas vbs. mais en parcourant le web je suis tombé sur ce bout de code (a réadapter).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim objFSO, objDossier, objFichier, objResultat   ... Repertoire = "C:\Document\Excel" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objDossier = objFSO.GetFolder(Repertoire) Set objResultat = objFSO.CreateTextFile(.....) ... If (objDossier.Files.Count > 0) Then For Each objFichier In objDossier.Files If (InStr(1, objFichier.Name, ".txt", 1) > 0) Then objResultat.WriteLine objFichier.Name End If Next End If

---