የ ስም አረፍተ ነገር

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

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