>Hi
>
>I have a direrctory which contains a stack of BMP files - many of the file names are wrong - I can tell if a file is wrong by looking at the first character of the file name - based on what the first character is I know what the filename should be corrected to
>
>Has anyone any code that would help me do this?
>
>Thanks
>
>Colin

RenameBadNames([c:\SomeFolder\*.BMP])


FUNCTION RenameBadNames(lcFilePattern)
    LOCAL lnFiles, laFiles[1], lnFor
    LOCAL lcFilePath
    lcFilePath = ADDBS(JUSTPATH(lcFilePattern))
    lnFiles = ADIR(laFiles, lcFilePattern)
    FOR lnForm = 1 TO m.lnFiles
        IF LEFT(laFiles[lnFor,1]) == [BADCHAR]
           lcOldName = lcFilePath+laFiles[lnFor,1]
           lcNewName = lcFilePath+[PUT THE NEW NAME HERE]
           RENAME (lcOldName) TO (lcNewName)
        ENDIF
    NEXT
RETURN .t.