gpt4 book ai didi

vbs 定时删除功能实现代码

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 24 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章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 定时删除功能实现代码的文章就讲到这里了,如果你想了解更多关于vbs 定时删除功能实现代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com