VBA中文件夹的操作

TRUEZHANG

如题，现在只知道用MKDIR创建新的文件夹，但不太会处理如何判断新生成的文件夹是否重名，以及如何用新生成的文件夹覆盖旧文件夹及旧文件夹里面的内容

3190496160

FSO之文件及文件夹操作及获取相关属性等-Excel VBA程序开发-ExcelHome技术论坛 - http://club.excelhome.net/thread-1174170-1-1.html?_dsign=1ae06f81

liulang0808

https://club.excelhome.net/threa ... tml?_dsign=73cffde5
链接内容可以参考

sj15627581616

1. Sub CheckFolderExistence()
   
2.     Dim folderPath As String
   
3.     Dim newFolderName As String
   
4. 
   
5.     ' 设置文件夹路径
   
6.     folderPath = "C:\Users\username\Documents\TestFolder"
   
7. 
   
8.     ' 检查文件夹是否存在
   
9.     If Dir(folderPath, vbDirectory) = "" Then
   
10.         ' 文件夹不存在，生成新文件夹
    
11.         MkDir folderPath
    
12.         MsgBox "新文件夹已生成！"
    
13.     Else
    
14.         ' 文件夹存在，删除旧文件夹并生成新文件夹
    
15.         newFolderName = folderPath & Format(Now, "yyyymmddhhmmss")
    
16.         Name folderPath As newFolderName
    
17.         MkDir folderPath
    
18.         MsgBox "文件夹已存在，旧文件夹已被覆盖并生成新文件夹！"
    
19.     End If
    
20. End Sub
    

复制代码

   AI生成代码

x-xx-xx

全部生成到新文件夹，不用考虑重名或覆盖，最后手动复制一下