Declare Function Name( ByRef oldname As Const String, ByRef newname As Const String ) As Integer

result = Name( oldname, newname )

oldname
newname

Возвращает ноль (0) в случае успешного завершения и ненулевое значение в случае неудачи.

Переименовывает файл или папку из oldname в newname.

Функция не гарантирует успех, если уже существует файл/папка с тем же именем (может будет переименование при перезаписи, а может и нет). Для большего контроля, FileExists может использоваться для проверки существующего файла, а Kill может использоваться для удаления существующего файла заранее.

Dim OldName As String
Dim NewName As String
Dim result As Integer 

OldName = "dsc001.jpg"
NewName = "landscape.jpg"

result = Name( OldName, NewName )
If 0 <> result Then 
    Print "error renaming " & oldname & " to " & newname & "."
End If

• В QB оператор NAME требует AS вместо запятой между старым и новым именами. Это происходит потому, что NAME был ключевым словом языка, а не функцией.
  
  

• Kill
  
• FileExists