访问VBA重命名文件

Access VBA rename a file

我试图使用两个文本框在VBA访问中执行重命名。
这是我的代码:

1
2
3
Private Sub Command61_Click()
    Name Me.sourFullPath As Me.destFullPath
End Sub

sourFullPathdestFullPath的整个文件路径都包括文件夹路径和文件扩展名,它们都位于同一驱动器上。
但是在我运行它之后,Access给了我

Run-time error 5: invalid procedure call or argument.

有人知道是什么原因吗?

谢谢


语法是正确的,因此请检查您实际要执行的操作:

1
2
3
4
Private Sub Command61_Click()
    Debug.Print"Source: '" & Me.sourFullPath &"' Target: '" & Me.destFullPath &"'"
    Name Me.sourFullPath As Me.destFullPath
End Sub

此外,目标文件夹必须存在。


如果您查看错误代码,它会在

上显示

https://msdn.microsoft.com/zh-cn/library/aa445484(v = vs.60).aspx

?参数可能超出了允许值的范围。

如果将目标扩展到超过255个字符,则它确实会失败,但会出现错误

Run-time error '53': File not found

仍然可能是您的源路径或目标路径太长。