የ ስም አረፍተ ነገር

ስም እንደ አሮጌ ስም እንደ ሀረግ እንደ አዲስ ስም እንደ ሀረግ

Sub ExampleReName
On Error GoTo Error
FileCopy "c:\autoexec.bat", "c:\temp\autoexec.sav"
Name "c:\temp\autoexec.sav" As "c:\temp\autoexec.bat"
End
Error:
If err = 58 Then
    MsgBox "File already exists"
End If
End
End Sub