Bonjour à tous,
je suis débutant en VBS et je souhaiterais extraire les lignes différentes de deux fichiers.txt . Exp:

Fic1=
L1
L2
L3


Fic2=
L1
L2
L4
L5

je voudrais récupérer dans un fichier.txt(FicResult.txt) la difference = 4

voici ce que j'ai récupéré mais cela ne fonctionne pas
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
23
24
25
26
27
28
29
30
31
32
33
Const ForReading = 1, ForWriting = 2, ForAppending = 8 
 
Dim fso, f , f1, f2
Dim st ,st1
 
Set objDictionary = CreateObject("Scripting.Dictionary")
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\Fic1.txt", ForReading)
Set f1 = fso.OpenTextFile("C:\Fic2.txt", ForReading)
 
 
 
Set f2 = fso.CreateTextFile("C:\FicResult.txt") 
 
Do Until f.AtEndOfStream
    ligne = f.ReadLine
	If Not objDictionary.Exists(ligne) Then
	objDictionary.Add ligne, ligne
	End If
Loop
 
f.Close
f1.Close
f2.Close
 
Set f2 = fso.OpenTextFile("C:\FicResult.txt", ForWriting)
 
For Each strKey in objDictionary.Keys
	f2.WriteLine strKey
Next
 
f2.Close
Merci pour votre aide.

Cordialement

Gardel