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