求一个vbs脚本,或者批处理。删除指定文件夹内容。
求一个vbs脚本,或者批处理。第一:删除C:\CMIS下“调查报告”和“检查报告”两个文件夹内所有内容,但不删除文件夹。第二:删除C:\CMIS\temp下所有*.xls...
求一个vbs脚本,或者批处理。
第一:删除C:\CMIS下“调查报告”和“检查报告”两个文件夹内所有内容,但不删除文件夹。
第二:删除C:\CMIS\temp下所有*.xls文件
第三:删除C:\pmis\temp下所有*.xls文件
此脚本或批处理无需任何提示
不用上传附件,附件我这打不开,写文本,我自己保存就行了,谢谢
还要增加一个判断:
如果c盘存在cmis文件夹,则执行第一和第二,如果不存在,跳过一二直接执行第三 展开
第一:删除C:\CMIS下“调查报告”和“检查报告”两个文件夹内所有内容,但不删除文件夹。
第二:删除C:\CMIS\temp下所有*.xls文件
第三:删除C:\pmis\temp下所有*.xls文件
此脚本或批处理无需任何提示
不用上传附件,附件我这打不开,写文本,我自己保存就行了,谢谢
还要增加一个判断:
如果c盘存在cmis文件夹,则执行第一和第二,如果不存在,跳过一二直接执行第三 展开
2个回答
展开全部
@ECHO OFF
IF exist C:\CMIS\调查报告 RD /q /s C:\CMIS\调查报告
IF exist C:\CMIS\检查报告 RD /q /s C:\CMIS\检查报告
IF exist C:\CMIS\temp DEL /q /s C:\CMIS\temp\*.xls
IF exist C:\pmis\temp DEL /q /s C:\pmis\temp\*.xls
PAUSE
if 命令判断文件夹是否存在,存在则删除,不存在跳过.
IF exist C:\CMIS\调查报告 RD /q /s C:\CMIS\调查报告
IF exist C:\CMIS\检查报告 RD /q /s C:\CMIS\检查报告
IF exist C:\CMIS\temp DEL /q /s C:\CMIS\temp\*.xls
IF exist C:\pmis\temp DEL /q /s C:\pmis\temp\*.xls
PAUSE
if 命令判断文件夹是否存在,存在则删除,不存在跳过.
展开全部
set fso=createobject("scripting.filesystemobject")
msgbox typename(fso)
on error resume next
if fso.FolderExists("C:\CMIS") then
fso.deletefolder "C:\CMIS\调查报告" '把文件夹及内部文件全部删除
fso.createfolder "C:\CMIS\调查报告" '再建立该文件夹
fso.deletefolder "C:\CMIS\检查报告"
fso.createfolder "C:\CMIS\检查报告"
end if
fso.deletefile "C:\pmis\temp\*.xls" '这些文件始终删除
'-----------------------------------------------------
dim fso
set fso=createobject("scripting.filesystemobject")
msgbox typename(fso)
on error resume next
if fso.FolderExists("C:\CMIS") then
fso.deletefolder "C:\CMIS\调查报告" '把文件夹及内部文件全部删除
fso.createfolder "C:\CMIS\调查报告" '再建立该文件夹
fso.deletefolder "C:\CMIS\检查报告"
fso.createfolder "C:\CMIS\检查报告"
else
fso.deletefile "C:\pmis\temp\*.xls" '这些文件C:\CMIS不存在时删除
end if
'你的提问有点模糊,所以弄了两版本
msgbox typename(fso)
on error resume next
if fso.FolderExists("C:\CMIS") then
fso.deletefolder "C:\CMIS\调查报告" '把文件夹及内部文件全部删除
fso.createfolder "C:\CMIS\调查报告" '再建立该文件夹
fso.deletefolder "C:\CMIS\检查报告"
fso.createfolder "C:\CMIS\检查报告"
end if
fso.deletefile "C:\pmis\temp\*.xls" '这些文件始终删除
'-----------------------------------------------------
dim fso
set fso=createobject("scripting.filesystemobject")
msgbox typename(fso)
on error resume next
if fso.FolderExists("C:\CMIS") then
fso.deletefolder "C:\CMIS\调查报告" '把文件夹及内部文件全部删除
fso.createfolder "C:\CMIS\调查报告" '再建立该文件夹
fso.deletefolder "C:\CMIS\检查报告"
fso.createfolder "C:\CMIS\检查报告"
else
fso.deletefile "C:\pmis\temp\*.xls" '这些文件C:\CMIS不存在时删除
end if
'你的提问有点模糊,所以弄了两版本
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询