COLOR 17, 15: CLS PRINT " MULTI MATCH Files": PRINT STRING$(80, 223) OPEN "C:\CLU\DIR-LIST" FOR INPUT AS #1 FOR i = 1 TO 4: LINE INPUT #1, tmp$: NEXT i CLOSE #1: path2$ = MID$(tmp$, 15) 'Path to target IF LEN(path2$) > 3 THEN path2$ = path2$ + "\" OPEN "C:\CLU\SOURCE" FOR INPUT AS #2: i = 0 DO: i = i + 1: LINE INPUT #2, tmp$ 'Foldername(s) IF i = 3 THEN 'Line 3 is path to source path1$ = tmp$: GOSUB VerifyPaths ELSEIF tmp$ = "" THEN 'The line is blank EXIT DO 'Get no file names below blank line ELSEIF i > 3 AND LEFT$(tmp$, 1) <> " " THEN GOSUB UseFileName 'File name is flush left END IF 'Skip all file names preceded by space LOOP UNTIL EOF(2) CLOSE #2 PRINT STRING$(80, 223): PRINT "Finished !" PRINT "FIRST PressAnyKey To Close ! THEN Open Any [Results-Notepad] Task Bar Buttons" PRINT STRING$(80, 223): press$ = INPUT$(1) KILL "C:\CLU\SOURCE": SYSTEM 'Finished-Close screen VerifyPaths: IF path1$ = path2$ THEN COLOR , 12: PRINT "Source & Target Paths Are The Same. They Must Be Different!" PRINT "PressAnyKey ": press$ = INPUT$(1) CLOSE #2: KILL "C:\CLU\SOURCE": SYSTEM 'Close END IF RETURN UseFileName: 'Uses only flush left files filename$ = tmp$: GOSUB MakeCommandLine GOSUB ExecuteCommandLine 'Show report on screen IF SCREEN(CSRLIN - 2, 1) = 70 THEN 'Files match LOCATE CSRLIN - 1, 1: PRINT "Press AnyKey/Esc" PRINT STRING$(80, 223): press$ = INPUT$(1) IF press$ = CHR$(27) THEN CLOSE #2: KILL "C:\CLU\SOURCE": SYSTEM 'Close END IF ELSE 'Files different LOCATE CSRLIN - 2, 1 PRINT "The Files Do Not Match. Put The Report Into Notepad? Press Y/N" PRINT STRING$(80, 223) press$ = UCASE$(INPUT$(1)) IF press$ = "Y" THEN cmd$ = cmd$ + " >C:\CLU\RESULTS" GOSUB ExecuteCommandLine SHELL "Start /m C:\Windows\Notepad.exe C:\CLU\RESULTS" SOUND 1500, 9: SLEEP 1 END IF END IF RETURN MakeCommandLine: file1$ = CHR$(34) + path1$ + filename$ + CHR$(34) file2$ = CHR$(34) + path2$ + filename$ + CHR$(34) cmd$ = "C:\Windows\Command\Fc.exe " + file1$ + " " + file2$ RETURN ExecuteCommandLine: 'Put cmd$ into a batch program OPEN "C:\CLU\TEMP.BAT" FOR OUTPUT AS #1 PRINT #1, "@echo off": PRINT #1, cmd$ CLOSE #1: SHELL "C:\CLU\TEMP.BAT" 'Run batch prog KILL "C:\CLU\TEMP.BAT" 'Delete batch program RETURN