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.SubFoldersFor 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)
loopgetfso=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
您可能感兴趣的文章:
- Jquery实现三层遍历删除功能代码
- 用vbs实现cmd功能的代码
- iOS:删除storyBoard,纯代码实现UITabBarController的视图切换功能
- JS小功能(操作Table--动态添加删除表格及数据)实现代码
- .net连接数据库,实现增加,修改,删除,查询的四大功能完整代码。
- JS小功能(操作Table--动态添加删除表格及数据)实现代码
- 用vbs实现cmd多命令运行功能代码
- Android滑动删除数据功能的实现代码
- Java代码使用FTPClient实现ftp文件上传下载和删除的功能
- 应用内实现 iOS 通讯录查询与删除功能的代码
- 利用PHP安装windows自动运行的服务,PHP程序可以实现长时间、自动运行、定时更新功能,直接可以用在项目中的类源代码
- JS小功能(操作Table--动态添加删除表格及数据)实现代码
- MFC中实现定时执行与提醒功能(自编代码)
- PHP中利用sleep函数实现定时执行功能实现代码
- c语言实现的货物管理系统实例代码(增加删除 查找货物信息等功能)
- 以较少代码实现DataGrid的排序,翻页,删除等功能 【1】
- 线程互动,GCD小应用,(功能实现并代码聚集---加载动画,弹框AlertView定时消失。)
- weui框架实现上传、预览和删除图片功能代码
- GridView的编辑,删除功能,用代码来实现GridView与数据库里表的绑定--来自百度知道
- 以较少代码实现DataGrid的排序,翻页,删除等功能【2】