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

sxgaobo

如何将指定文件夹中所有子文件夹及其中的文件都拷贝到别的文件夹中？
* s.Copyfile "D:\登记\*.*", [位置] & "\"
这个只能拷贝文件，不拷文件夹

ly

你的命令就是copyfile=复制文件
如果要复制文件夹应该使用 copyfloder命令。

sxgaobo

哈~~这样啊！谢谢啊，哪怎样能删除了指定文件夹中的所有文件和文件夹啊？

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

复制代码

xinrenq

可以用shell来运行DOS命令
如删除AA文件夹下的文件(不含文件夹): Shell "cmd /c del /Q/F D:\AA"
删除AA文件夹：Shell "cmd /c Rd/S/Q D:\AA"