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 "错误重命名" & oldname & "to" & newname & "."
End If

• 在QB中，NAME需要AS而不是旧名称和新名称之间的逗号。这是因为NAME是一个语言关键字而不是一个函数。
  
  

• Kill
  
• FileExists