文件夹移动至文件夹，请帮助写个代码，感谢！

today77

求助：同目录下文件夹移动至文件夹操作。 实现功能：

1、运营代码，弹出可选窗口，把所有文件夹名称填入A列；
2、然后在B列填入填入文件夹名称。实现把A列文件夹移动至B列文件夹内（即A1文件夹移动到A文件夹内）；
3、B列空的不做操作。

请帮助写一下代码，感谢。

opiona

   ' 移动文件夹:  确保目标路径不以反斜杠结束
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FSO.MoveFolder PathY, PathM

ykcbf1100

第一步也不用弹窗了，直接让代码把子目录名写入A列不就完了。

ykcbf1100

子目录写入A列

1. Sub ykcbf()  '//2024.12.11   子目录写入A列
   
2.     Set fso = CreateObject("Scripting.FileSystemObject")
   
3.     p = ThisWorkbook.Path & ""
   
4.     [a2:a1000] = ""
   
5.     For Each fd In fso.GetFolder(p).SubFolders
   
6.         m = m + 1
   
7.         Cells(m + 1, 1) = fd.Name
   
8.     Next
   
9.     MsgBox "OK！"
   
10. End Sub
    

复制代码

ykcbf1100

把A列子目录移入B列子目录中

ykcbf1100

文件夹移动

1. Sub ykcbf2()  '//2024.12.11   把A列子目录移入B列子目录中
   
2.     Set fso = CreateObject("Scripting.FileSystemObject")
   
3.     p = ThisWorkbook.Path & ""
   
4.     r = Cells(Rows.Count, 1).End(3).Row
   
5.     For i = 2 To r
   
6.         If Cells(i, 2).Value <> Empty Then
   
7.             p1 = p & Cells(i, 1).Value
   
8.             p2 = p & Cells(i, 2).Value & ""
   
9.             fso.MoveFolder p1, p2
   
10.         End If
    
11.     Next
    
12.     MsgBox "OK！"
    
13. End Sub
    

复制代码

liulang0808

https://club.excelhome.net/threa ... tml?_dsign=73cffde5
楼主可以参考的

today77

ykcbf1100 发表于 2024-12-11 09:45
文件夹移动

十分感谢！