如何用VBA重命名中文命名文件？

我在表中有MS Access中存储的文件路径

该表用于重命名一组特定的文件，因此重要的字段是oldpath和newpath。这些在VBA中使用。首先，我将数据设置作为记录集。之后，我做了一段时间，不使用RenameFileOrDir函数处理所有旧路径

该函数用于重命名所有非中文文件名

公共函数TestNameStatement（）
Dim fOK为布尔型
设置rs_images=CurrentDb.OpenRecordset（“选择import_acc.*from import_acc”）
rs_images.MoveLast
rs_images.MoveFirst
不要使用rs_images.EOF
oldlocation=rs_images.Fields（“oldpath”）
newlocation=rs_images.Fields（“newpath”）
'源文件夹必须存在，但目标文件夹不必存在
fOK=RenameFileOrDir（“&oldlocationx&”“，”“&newlocationx&”“）
rs_images.MoveNext
环
出错时继续下一步
端函数

---

进入访问选项、语言、添加中文

这篇文章并不是在试图回答这个问题。请注意，这是一个问答网站，每个帖子都是一个问题或问题的答案。帖子也可以有这样的小句子，可以用来批评或要求作者澄清。这应该是一个注释或一个注释