个人中心
文章发布
退出
作者热门文章
- PageHelper返回参数详解
- Java 简介
- Java开发环境配置
- Java基础语法
24
4
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
我使用 IBM Personal Communications 12.0.3.0 的宏记录器制作了一个凭据输入宏。它只是在调用时输入我的用户名和密码。 sub Credentials() Dim
该批处理更改了 vbs 代码，使其无法供 vbs 使用。我该如何解决这个问题？ 批号: echo Const HIGH = 128 >> prio.vbs echo strComputer = "."
我有 2 个 vbs 文件。 A.vbs: Class test public a public b End Class B.vbs: Dim objShell Set objShell =
以下是我用来尝试在 IIS 6 中创建虚拟目录的条目: [Run] Filename: {tmp}\cscript.exe mkvirtdir.vbs; Parameters: "-c LocalHo
对于vbs中ping的实现可以通过两种方式 ： 1、调用系统ping命令； 2、使用wmi查询pingstate类处理。 1、调用系统ping命令
核心vbs代码 ? 1
复制指定文件到指定目录下 核心代码 ? 1
在看vb开发,看到二维数组时突发奇想用二维数组作为游戏关卡; 1. 选择操作: 游戏开始时会提示选择注册, 登录, 退出三种选项, 2.注册: 注册成功会将用户账户与密码存入用户数据txt文档中
参考代码一： 复制代码 代码如下: Function DeleteLog( ) Dim objFSO, objFolder, strPath,
运行前请确定你的电脑安装了word。 复制代码 代码如下: i=0 set wshshell=createobject("wscript.shell") Set objWo
复制代码 代码如下: On Error Resume Next Dim WshShell, QQPath, QQselect set wshshell=createobject("
挺实用的一段代码，用来深入学习vbs，确实不错咯。 复制代码 代码如下: On Error Resume Next '忽略所有错误 Dim filename '声明变量 Di
CMD当前路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetF
最近相关的备份比较频繁，为了校验文件的完整性，老是要打开某文件HASH校验工具，比较麻烦，于是乎写了这个东东，文件较大时计算有点慢，文件的MD5值保存在剪贴板！效果如图： 使用方法： 1.先
打开狗狗影视，搜索自己需要的资源，资源类型选：电驴，如下图： 我找到一个 19.75gb 的： 点开它，出现如下图的界面，可以看到正常下载地址已被屏蔽。我们复制地址栏中的网址，备用。
效果图： 代码都封装成函数了，方便调用： 复制代码 代码如下: Key = "www-enun-net" '不要用数字
复制代码 代码如下: on error resume next url = " http://www.bathome.net/logging.php?action=login"
复制代码 代码如下: set oDOM = WScript.GetObject("http://ipseeker.cn//") flag=0 for i=1 to 10 &n
话说还是闲来练手，初步实现了自己认为的“多线程”下载。(至于是不是多线程，可以参考12楼链接) 为避免冗余，省了一些错误检查。我觉得没多大实际用途，有兴趣的兄弟一起学习讨论呗。欢迎大家指正: 复制
复制代码 代码如下: '=====================================================================================
我是一名优秀的程序员,十分优秀！