ຄຳສັ່ງ Name

Name OldName As String As NewName As String

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 "ໄຟລ໌ນີ້ມີຢູ່ແລ້ວ"
End If
End
End Sub