主题：[求助]如何修改电脑里文件夹名

求助大神

按照图中填写单元格，随后在电脑指定盘符中生成文件夹

 

Dim i As Integer
Dim j As Integer
Dim path As String
For i = 0 To Tables("表A").rows.Count-1
For j = 0 To Tables("表A").cols.Count-1

path = "f:\" & Tables("表A").rows(i)("第一列") &"\"& Tables("表A").rows(i)("第二列")  &"\"& Tables("表A").rows(i)("第三列") &"\"& Tables("表A").rows(i)("第四列") &"\"& Tables("表A").rows(i)("第五列") &"\"& Tables("表A").rows(i)("第六列") &"\"& Tables("表A").rows(i)("第七列") &"\"& Tables("表A").rows(i)("第八列") &"\"& Tables("表A").rows(i)("第九列") &"\"& Tables("表A").rows(i)("第十列") &"\"& Tables("表A").rows(i)("第十一列") &"\"& Tables("表A").rows(i)("第十二列") &"\"& Tables("表A").rows(i)("第十三列") &"\"& Tables("表A").rows(i)("第十四列") &"\"& Tables("表A").rows(i)("第十五列") &"\"& Tables("表A").rows(i)("第十六列") &"\"& Tables("表A").rows(i)("第十七列") &"\"& Tables("表A").rows(i)("第十八列") &"\"& Tables("表A").rows(i)("第十九列") &"\"

filesys.CreateDirectory(path)
Next
Next

 

 

问题是这样：如果在单元格上更改了内容，比如把“6”变成“60”后，再次执行代码。“2”文件夹里出现了“6”和“60”共存的现象。怎么才能实现改成“60”后，把“6”删除，并且同时删除“6”文件夹内的所有文件夹和文件。DeleteDirectory只能删除指定文件夹，DeleteFile只能删除指定文件。

此主题相关图片如下：生成文件夹.png