#Option Explicit
#AppType Console
'// FILENAME/FOLDER RENAMER with UNC support
Cls
If Not STANDALONE Then
	Fbsl2Exe(Command(1), fbsl_console)
	ExitProgram(0)
End If

If CommandCount() <> 3 Then
	Print., "*****************************"
	Print "Usage : RENAMER Source Target"
	Print "*****************************",.
	Pause
	ExitProgram(-1)
End If

Dim $source = Command(1)
Dim $target = Command(2)

Print "> Renaming ", source, " to ", target
Dim %result = MoveF(source, target)
If result <> 1 Then
	Print "< Last error returned : ", GetLastError()
Else
	Print "< ", source, " successfully renamed to ", target
End If