华域联盟 vbs vbs 定时删除功能实现代码

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 定时删除功能实现代码

转载请保留出处和原文链接:https://www.cnhackhy.com/16648.htm

本文来自网络,不代表华域联盟立场,转载请注明出处。

作者: sterben

发表回复

联系我们

联系我们

2551209778

在线咨询: QQ交谈

邮箱: [email protected]

工作时间:周一至周五,9:00-17:30,节假日休息

关注微信
微信扫一扫关注我们

微信扫一扫关注我们

关注微博
返回顶部