Rechercher de tous les fichiers d'un répertoire donné

Version imprimable

Bonjour à tous, je dois ajouter un suffixe à chaque ligne de fichier texte. Sur un fichier, je sais le faire, mais je ne sais pas comment choisir tous les fichiers *.txt d'un répertoire donné.

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
Path = "C:\TEST"
const  ficlu    = "azerty.txt"
  const  ficecrit = "nouveau.txt"
  const  carac    = ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;1" '       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
 
  '     renommer les fichiers
             f= left(ficlu,len(ficlu)-3) & "bak"
             ofso.movefile  ficlu, f
             ofso.movefile  ficecrit, ficlu

Si quelqu'un peut me donner un peu d'aide...

D'avance, merci.

Et de cette manière est ce que cela fonctionne?

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
Path = "C:\TEST\"
ficlu    = Path & "azerty.txt"
ficecrit = Path & "nouveau.txt"
const  carac    = ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;1" '       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
 
  '     renommer les fichiers
	f= left(ficlu,len(ficlu)-3) & "bak"
	ofso.movefile  ficlu, f
	ofso.movefile  ficecrit, ficlu

20/02/2018, 09h44
ProgElecT
Salut

Citation:

Envoyé par PeterMac62

Bonjour à tous, je dois ajouter un suffixe à chaque ligne de fichier texte. Sur un fichier, je sais le faire, mais je ne sais pas comment choisir tous les fichiers *.txt d'un répertoire donné.
............
D'avance, merci.

Dans la FAQ VBScript:
Comment lister les fichiers d'un dossier ?
Dans la boucle For each .... next il te suffit de vérifier le type du fichier, et s'il est égal à .txt, alors passer le nom dans la sub que tu as déjà codé.
Code:

1 2 3 4 5 For each oFl in oFSO.GetFolder(stRep).Files if Lcase(right(oFl.Name,3)) ="txt" then 'executer ta sub end if Next