请教！如何将指定文件夹中所有子文件夹拷贝到别的文件夹中？

roych

sxgaobo 发表于 2013-3-5 21:18
哈~~这样啊！谢谢啊，哪怎样能删除了指定文件夹中的所有文件和文件夹啊？

建议使用FSO（FileSystemObject）来Delete【如果只是文件的话，可以直接Kill，但Kill方法对文件夹无效。】

1. Sub tes()
   
2. '需引用Microsoft Scripting Runtime库
   
3. Dim fso As New FileSystemObject
   
4. Dim fd As Folder
   
5. If fso.FolderExists("C:\xx") Then fso.DeleteFolder ("C:\xx")
   
6. End Sub

复制代码