sách gpt4 ăn đã đi

Mã thực thi chức năng xóa theo lịch trình vbs

In lại Tác giả: qq735679552 Thời gian cập nhật: 29-09-2022 22:32:09 24 4
mua khóa gpt4 giày nike

CFSDN nhấn mạnh vào giá trị tạo ra nguồn mở và chúng tôi cam kết xây dựng nền tảng chia sẻ tài nguyên để mọi nhân viên CNTT có thể tìm thấy thế giới tuyệt vời của bạn tại đây.

Bài viết trên blog CFSDN vbs mã triển khai chức năng xóa theo lịch trình này được tác giả sưu tầm và biên soạn. Nếu các bạn quan tâm đến bài viết này thì nhớ like nhé.

Mã tham khảo một:

Sao chép mã Mã này như sau:

Hàm DeleteLog() Dim objFSO, objFolder, strPath, targetFSO, subFSO, DirPath DirPath = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path&"\Log\" Đặt objFSO = CreateObject("Scripting.FileSystemObject") Đặt targetFSO = objFSO.GetFolder(DirPath) Đặt subFSO = targetFSO.SubFolders 。

  。

    Đối với mỗi thư mục con trong SubFSO Nếu DateDiff("d", subFolder.name, date)>3 Thì strPath = DirPath&subFolder.name objFSO.DeleteFolder(strPath) End Nếu chức năng kết thúc tiếp theo Gọi XóaLog( ) Bằng cách này, hãy lên lịch vbs của tôi trong tác vụ Schdeuler Chương trình không báo lỗi. Rắc hoa và buộc ~~.

  。

Mã tham chiếu 2:

  。

Sao chép mã Mã này như sau:

Dim dqxs, dqrq, szxs, szfz, dqml, datp Dim jclb Dim c dim d '==================================================================================== datp = "F:" szxs = "7:00:" wjml = datp & "\DVRDat\" sykj = 2000000000 '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," đặt WshShell = WScript.CreateObject("WScript.Shell") Đặt fso = Wscript.CreateObject("Scripting.FileSystemObject") '================================================================================ nếu fso.GetDrive(datp).FreeSpace < sykj thì gọi cprlql thực hiện Nếu InStr(time, szxs) <> 0 Sau đó nếu fso.GetDrive(datp).FreeSpace < sykj thì gọi cprlql kết thúc nếu Vòng lặp WScript.Sleep(60*1000) 。

  。

getfso=fso.GetFolder("c:\\windows").DateCreated '========================================================================================== Hàm cprlql Dim strline, scml WshShell.run "cmd /c dir " & wjml &" /ad /b /tc>c:\dir.log",0 nếu fso.FileExists("c:\dir.log") thì Đặt objFile = fso.OpenTextFile("c:\dir.log") thực hiện cho đến khi objFile.atendofstream strline = objFile.readline scml = wjml & strline WshShell.run "cmd /c rd /s /q " & scml,0 cho i = 1 đến 20 nếu fso.GetDrive(datp).FreeSpace > sykj sau đó thoát khỏi Hàm nếu fso.FolderExists(scml) thì WScript.Sleep(1000) nếu không thì thoát để kết thúc nếu tiếp theo nếu fso.GetDrive(datp).FreeSpace > sykj thì thoát khỏi Hàm vòng lặp kết thúc nếu Kết thúc Hàm 。

  。

Cuối cùng, bài viết này về mã thực hiện chức năng xóa theo lịch trình VBS kết thúc tại đây. Nếu bạn muốn biết thêm về mã thực hiện chức năng xóa theo lịch trình VBS, vui lòng tìm kiếm các bài viết về CFSDN hoặc tiếp tục duyệt các bài viết liên quan. blog . .

24 4 0
qq735679552
Hồ sơ

Tôi là một lập trình viên xuất sắc, rất giỏi!

Nhận phiếu giảm giá taxi Didi miễn phí
Phiếu giảm giá taxi Didi
Chứng chỉ ICP Bắc Kinh số 000000
Hợp tác quảng cáo: 1813099741@qq.com 6ren.com
Xem sitemap của VNExpress