删除指定目录及当前目录下的所有东西要怎么做呢？

Question

删除指定目录及当前目录下的所有东西要怎么做呢？或是删除指定目录下的所有文件和文件呢？还有把指定的目录及指定目录下的所有文件拷到指定的位置呢？
这个要怎么做呢？高手帮忙．

Answer 1

'删除目录：    Dim path As String
    Dim cmd As String
    path = """d:\my folder""" '如果路径中有空格则需要用引号括起来
    cmd = "cmd /c rmdir /s /q " & path '拼装一个DOS命令串
    Call Shell(cmd) '执行该命令'同样可以使用copy命令完成文件拷贝。

Answer 2

多谢高手指教．rmdir只能删除一个空目录是吗？
要的是删除本身的目录及下面的所有文件和文件夹．还有就是删除指定目录下的所有文件和文件夹，不包含本身的目录还有怎么调用一个程序

Answer 3

先用Kill语句删除所有文件,
然后用RmDir删除指定的文件夹.参考:http://www.mf100.com/document/2005-8/751.shtml

Answer 4

'引用Microsoft Scripting Runtime
Dim fso As New FileSystemObject
 On Error Resume Next
 Set fso = CreateObject("Scripting.FileSystemObject")
 fso.DeleteFolder "d:\my folder"
 Set fso = Nothing

Answer 5

'删除当前目录
 ...
 fso.DeleteFolder CurDir