renaming files

Function RenameFile%(path$, newpath$)
	CopyFile path$, newpath$
	If FileType(newpath$) > 0 Then
		DeleteFile path$
		Return True
	EndIf
End Function