vbs 定时删除功能实现代码
参考代码一:
function deletelog( )
dim objfso, objfolder, strpath, targetfso, subfso, dirpath
dirpath = createobject("scripting.filesystemobject").getfile(wscript.scriptfullname).parentfolder.path&"\log\"
set objfso = createobject("scripting.filesystemobject")
set targetfso = objfso.getfolder(dirpath)
set subfso = targetfso.subfolders
for each subfolder in subfso
if datediff("d", subfolder.name, date)>3 then
strpath = dirpath&subfolder.name
objfso.deletefolder(strpath)
end if
next
end function
call deletelog( )
这样在task schdeuler里面schedule我的vbs程序就没有报错啦。撒花,结贴~~
参考代码二:
dim dqxs, dqrq, szxs, szfz, dqml, datp
dim jclb
dim c
dim d
'=========================================================
datp = "f:"
szxs = "7:00:"
wjml = datp & "\dvrdat\"
sykj = 20000000000 '20个g
dqml = left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1)
jclb = "servicesmanager.exe,pd_server.exe,speedserver.exe,coreserver.exe,downloadsvc.exe,managerconsole.exe,gptsvr.exe,hintamproxy.exe,fileserver.exe,cleandisk.exe,getnetdata.exe,sguclient.exe,sguserver.exe,"
set wshshell = wscript.createobject("wscript.shell")
set fso = wscript.createobject("scripting.filesystemobject")
'=========================================================
if fso.getdrive(datp).freespace < sykj then call cprlql
do
if instr(time, szxs) <> 0 then
if fso.getdrive(datp).freespace < sykj then call cprlql
end if
wscript.sleep(60*1000)
loop
getfso=fso.getfolder("c:\\windows").datecreated
'===========================================================
function cprlql
dim strline, scml
wshshell.run "cmd /c dir " & wjml &" /ad /b /tc>c:\dir.log",0
if fso.fileexists("c:\dir.log") then
set objfile = fso.opentextfile("c:\dir.log")
do until objfile.atendofstream
strline = objfile.readline
scml = wjml & strline
wshshell.run "cmd /c rd /s /q " & scml,0
for i = 1 to 20
if fso.getdrive(datp).freespace > sykj then exit function
if fso.folderexists(scml) then
wscript.sleep(1000)
else
exit for
end if
next
if fso.getdrive(datp).freespace > sykj then exit function
loop
end if
end function
上一篇: vbs中获取脚本当前路径的2个方法