Code archives/File Utilities/Rename File Deluxe
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
Does what is says on the tin, you don't have to include a path for the renamed file it will use the path of the original file. | |||||
Function Renamefile(orgfile$,newfile$) If FileType (orgfile$)<>1 Then RuntimeError "File " + orgfile$ + " Does Not Exist!" thispath$=bbgetDir$(orgfile$) thisfile$=bbgetfile$(newfile$) mynewfile$=thispath$+thisfile$ If orgfile$=mynewfile$ Then RuntimeError "New Filename Cannot Match Old Filename!" CopyFile orgfile$,mynewfile$ DeleteFile orgfile$ End Function Function bbGetDir$(path$) For a = Len(path$) To 1 Step -1 byte$ = Mid(path$,a,1) If byte$ = "\" Return Left(path$,a) EndIf Next Return "" End Function Function bbGetFile$(path$) For a = Len(path$) To 1 Step -1 byte$ = Mid(path$,a,1) If byte$ = "\" Return Right(path$,Len(path$)-a) EndIf Next Return path$ End Function ;Example Renamefile ("c:\bum.bb","scum.bb") |
Comments
| ||
You could just copy the file to the same folder with a different name and then delete the older one, lot less code involved. |
Code Archives Forum