w1100n
This site is best viewed in Google Chrome
lcf, 10/29/2012 11:21

‘/////////////////////////////////////////////////////////////////////////////////////////////////////////// ‘ ‘ Compare two plain file in row-to-row ‘ Return Code: 1 = same; 0=difference ‘ ‘////////////////////////////////////////////////////////////////////////////////////////////////////////// public Function ComparePlainFile(cFile1, cFile2) On Error Resume Next ComparePlainFile = 1 Const ForReading = 1 Dim fso, txtFile1, strLine1, txtFile2, strLine2 Set … Continue reading

辽ICP备14012896