[VB6] Comando Sort

[fox80129]

Salve,
ho uno script che individua le differenze tra 2 files di testo.
Lo script mi da come risultato solo "Different files" nel caso i 2 file confrontati sono differenti.
Ora vorrei che mi fornisse pure le stringhe differenti.
Credo che bisogna utilizzare il comando Sort,ma non so come.
Mi potete dare una mano?

dim filename1
dim filename2

filename1="c:\sitelist.txt"
filename2="c:\textstream.txt"


Set oFSO1 = CreateObject("Scripting.FileSystemObject")
Set oFSO2 = CreateObject("Scripting.FileSystemObject")

Set oTextFile1 = oFSO1.OpenTextFile(filename1, 1 , True)
Set oTextFile2 = oFSO2.OpenTextFile(filename2, 1 , True)


While oTextFile1.AtEndOfStream <> True
line1 = oTextFile1.ReadLine
line2 = oTextFile2.ReadLine

if (line1<>line2) then 
Mail = "Different files" & vbcrlf & line1 & vbcrlf & line2

end if
wend

'if the second file has more strings i get the notify
if (oTextFile2.AtEndOfStream <> True) then 
Mail = "Different Files"


oTextFile1.close
oTextFile2.close

[alka]

Hai dimenticato di specificare il linguaggio di programmazione.

Si tratta di VB6?

Scrimivi una conferma... ciao!

[fox80129]

Si,scusa...si tratta di vb6