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