REM
REM Rename file(s) with spaces to underscores
REM
REM Created on 18/4/2009 - PvE
REM

OPEN "." FOR DIRECTORY AS mydir

Found = FALSE

REPEAT
    GETFILE myfile$ FROM mydir
    orgfile$ = myfile$
    IF INSTR(myfile$, " ") THEN
	Found = TRUE
	WHILE INSTR(myfile$, " ") DO
	    FOR x = 1 TO LEN(myfile$)
		IF EQUAL(MID$(myfile$, x, 1), " ") THEN
		    new$ = CONCAT$(LEFT$(myfile$, x - 1), "_", RIGHT$(myfile$, LEN(myfile$) - x))
		    BREAK
		END IF
	    NEXT
	    myfile$ = new$
	WEND
	COLOR FG TO BLACK
	PRINT "Rename '";
	COLOR FG TO RED
	PRINT orgfile$;
	COLOR FG TO BLACK
	PRINT "' to '";
	COLOR FG TO GREEN
	PRINT myfile$;
	COLOR FG TO BLACK
	PRINT "' (Y/N)?";
	key = GETKEY
	IF key EQ 89 THEN
	    RENAME orgfile$ TO myfile$
	END IF
	PRINT
    END IF
UNTIL ISFALSE(LEN(myfile$))

IF NOT(Found) THEN
    PRINT "No files with spaces found in the current directory."
END IF

CLOSE DIRECTORY mydir

COLOR RESET