Comment ouvrir et renommer un fichier texte

Bonsoir à tous :roll:
étant novice en VBS je cherche à savoir comment on peut renommer un fichier texte avec une partie de ce nom à l'intétieur du fichier. Voici avec à travers un exemple exposé mon problème :cry:
Exemple un fichier arrive dans le répertoire C:\temp et dont je ne connais pas le nom exact dudit fichier l’exemple FIC_123.TXT
Dans le répertoire c:\temp\
Nous avons donc :
Nom fichier :
FIC_123.TXT
Contenu du fichier :
RBC9ZCD090GG
RBC9ZCD100AA

Je voudrais faire un script en VBS qui
1)Ouvre le fichier FIC_123.TXT
2)Récupère la chaine de caractères « 9ZCD »
3)Renomme le fichier FIC_123.TXT en FIC_9ZCD.TXT

Nota : Il faut aussi paramétrer le nom fichier car demain ce fichier pourrait se nommer FIC_9999.TXT

vous remerciant par avance
Je vous souhaite une bonne soirée :?

:faq:

1 et 2 ) Comment lire le contenu d'un fichier texte ?

3 ) Comment déplacer un fichier ?


Nota: Comment utiliser les arguments en ligne de commande ?

;) Bonjour à tous,
tout d'abord un grand merci à bbil pour sa réponse qui m'a mis sur la voie, voici le script complet :
------------------------

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

Dim fs, f, sf, f1, s, lFicSou, lFicDest, ldir ldir = "D:\temp\test" Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(ldir) Set sf = f.Files   For Each f1 In sf   If Mid(f1.Name, 1, 3) = "FIC" Then MsgBox f1.Name   Set of = fs.OpenTextFile(f1.Path) lFicSou = ldir & "\" & f1.Name lFicDest = ldir & "\FIC_" & Mid(of.Readline, 4, 4) & ".dat"   While Not of.AtEndOfStream MsgBox of.readline Wend   s = s & f1.Name s = s & vbCrLf   fs.CopyFile lFicSou, lFicDest Fso.DeleteFile lFicSou of.Close   End If Next   MsgBox s

---

---------------------------
A ceux qui démarrent une précision il est possible avec "Access" de dérouler le script en mode pas à pas ce qui facilite la compréhension du script surtout si comme moi vous débutez, ce qui explique mes questions questions basics.
Encore merci et bonne soirée
Sujet résolu :ccool: