怎么删除文件夹下的所有文件

wzh01 2004-08-03 05:25:40

怎么删除文件夹下的所有文件（需要保留文件夹）

...全文

166 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

wzh01 2004-08-03

打赏
举报

Set WXFso = CreateObject("Scripting.FileSystemObject")
cpath = Server.MapPath("xxxx")
Set theFolder = WXFso.GetFolder(cpath)
For Each objFile in theFolder.Files
WXFso.DeleteFile(cpath&"\"&objFile.name)
Next

ycted 2004-08-03

打赏
举报

用fso.
set fso = createobject("scripting.filesystemobject")
path = server.mappath("****")
Set temp = fso.getfolder(path)
for each file in temp.Files
fso.deleteFile(file.name)
next

qhyan23 2004-08-03

打赏
举报

我还没有这样做过, sheng9hhd(无形) 你的代码我收藏了.
同时感谢楼主的问题.

mjpclab 2004-08-03

打赏
举报

用递归算法简单一点

sunjiujiu 2004-08-03

打赏
举报

无形所言即是

sheng9hhd 2004-08-03

打赏
举报

Set WXFso = CreateObject("Scripting.FileSystemObject")
cpath = Server.MapPath("xxxx")
Set theFolder = WXFso.GetFolder(cpath)
For Each objFile in theFolder.Files
WXFso.DeleteFile(objFile.name)
Next

rabbitisme 2004-08-03

打赏
举报

FileSystemObject对象的DeleteFile方法允许删除指定的文件，一个或多个。
如：

<%
'指定要删除的文件
source="c:\test\*.*"
set fs=CreateObject("Scripting.FileSystemObject")
fs.DeleteFile Source,True
Set fs=noting

%>