Bonjour à tous,

n'étant un expert vbs, j'aurai souhaité pouvoir ajouter un suffixe constant à chaque fin de ligne d'un fichier. Cela , j'y arrive.
Mais je voudrai aller plus loin en faisant cela pour un répertoire donnée ( qui pourra être mis en dur dans le script) ainsi que tous les fichiers qui seront de types .txt

Il faudrait que les anciens fichiers soient effacés, et que les nouveaux soient dans un répertoire donné.

Pour résumer :

1- j'ai 15 fichiers .txt dans le répertoire c:\TEMP\INPUT (défini dans le VBS qui ne changera jamais)
2- j'ajoute par le vbs ci- dessous un suffixe (défini dans le VBS qui ne changera jamais)
3- Déplacer les nouveaux fichiers dans le répertoire c:\TEMP\OUTPUT (défini dans le VBS qui ne changera jamais)
4- effacer les fichiers tous les fichiers *.txt du c:\TEMP\ÌNPUT


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
const  ficlu    = "c:\lgo\fichier_original.txt"
  const  ficecrit = "c:\lgo\fichier_sortie.txt"
  const  carac    = "ajout test suffixe" '       caractère à mettre en bout de ligne
 
 Set        oFso = CreateObject("Scripting.FileSystemObject")
     if not ofso.fileexists(ficlu) then _
            msgbox "fichier non trouvé",, ficlu : wscript.quit
 
Const ForReading    = 1
const ForWriting    = 2
Const TristateTrue  = -1     ' Unicode
 
   Set fs   = oFso.OpenTextFile(ficecrit,ForWriting,true)
 
                 fic= oFSO.GetFile(ficlu).path
  Set fl = oFso.OpenTextFile(fic,ForReading, TristateTrue)
 
  while Not fl.AtEndOfStream
     lig = fl.readline
            fs.writeline (lig & carac)
  Wend
  fl.Close  : fs.close
D'avance, merci de toute votre aide au combien précieuse