BREAK ON CLS

DIM $filename,$line,$login

;Create a list of files to be FTPed
SHELL "%COMSPEC% /C DIR C:\test /b /l > filelist.txt"

;FTP files and pipe output to text file
SHELL "%COMSPEC% /C FTP -i -s:C:\ftpcmds.txt > C:\ftpoutput.txt"

OPEN(1,"C:\test\filelist",2)

$filename = READLINE(1)

;Set login to failed
$login = 1

WHILE @ERROR = 0

	OPEN(2,"C:\ftpoutput.txt",2)
	
	$line = READLINE(2)

	WHILE @ERROR = 0
		
		IF INSTR($line,$filename)
		
			;Must have at least logged in
			$login = 0
		
			;Read the next line
			$line = READLINE(2)
			
			;Then the file was FTPed
			IF INSTR($line,"Transfer complete")
			
				? "FTP Verfied for "+$filename
				
			ELSE
			
				? "FTP failed for "+$filename
				
			ENDIF
			
		ENDIF
	
		$line = READLINE(2)
	LOOP
		
	$ = CLOSE(2)
	
	$filename = READLINE(1)
	
LOOP
	
IF $login = 0
	? "Login succeeded"
ELSE
	? "Login failed "
ENDIF
	
$ = CLOSE(1)