用VBA重命名文件夹中的文件名

scl2003921

我用name重名名文件夹中的文件名时，总是出错（见以下代码红色部分），
1、请问是什么原因？

2、有什么方法或函数，可以直接获得文件所在的最近一级文件夹的名称？

------------------------------------------------------------------------------------------------

Sub rename()
Dim path As String, wn As String, oldname As String, pre As String
pre = "2022年文件"    '  “2022年文件”是最近一级文件夹的名称，有没有一个方法或函数可以直接获得这个名称？
wn = Dir(ThisWorkbook.path & "\" & "*.xls")
path = ThisWorkbook.path & "\"
oldname = ThisWorkbook.Name
Do
    If wn = "" Then Exit Do
    If wn <> oldname Then
       Name wn As pre & wn  '总是在这句出错（运行时错误“53”，文件未找到）
    End If
    wn = Dir
Loop
End Sub

kucoor

nane 后面的文件缺少完整路径

taller

taller

微软帮助文档 https://learn.microsoft.com/zh-c ... c_id=M365-MVP-33461

scl2003921

taller 发表于 2022-12-9 04:48

感谢版主。
我原来试过 ：Name path & wn As   pre & path & wn ，我以为路径、文件名要紧密相连，结果一直出错。
现在知道路径要跟在 AS的后面。

scl2003921

kucoor 发表于 2022-12-9 02:08
nane 后面的文件缺少完整路径

非常感谢！
我试了一下，确实应该加路径，而且目的路径应该紧跟在as的后面。