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

ghpy 2006-05-19 10:03:49

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

或是删除指定目录下的所有文件和文件呢？

还有把指定的目录及指定目录下的所有文件拷到指定的位置呢？

这个要怎么做呢？高手帮忙．

...全文

150 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

tripman 2006-05-20

打赏
举报

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

tripman 2006-05-20

打赏
举报

'引用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

junki 2006-05-20

打赏
举报

先用Kill语句删除所有文件,
然后用RmDir删除指定的文件夹.

参考:http://www.mf100.com/document/2005-8/751.shtml

ghpy 2006-05-20

打赏
举报

多谢高手指教．

rmdir只能删除一个空目录是吗？
要的是删除本身的目录及下面的所有文件和文件夹．

还有就是删除指定目录下的所有文件和文件夹，不包含本身的目录

还有怎么调用一个程序

chenziteng 2006-05-19

打赏
举报

'删除目录：

Dim path As String
Dim cmd As String
path = """d:\my folder""" '如果路径中有空格则需要用引号括起来
cmd = "cmd /c rmdir /s /q " & path '拼装一个DOS命令串
Call Shell(cmd) '执行该命令

'同样可以使用copy命令完成文件拷贝。