Code archives/File Utilities/Rename File Deluxe

This code has been declared by its author to be Public Domain code.

Download source code

Rename File Deluxe by -=Darkheart=-
(Posted 23 years ago)
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")