删除服务器上文件代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】删除服务器上文件

作者:Egbert / 发布于2016/1/25/ 717

Dim d,fso,files,file   '声明变量名（不做也可以） 
Set d = CreateObject("Scripting.Dictionary")
d.Add "0", "E:\***\"   '把目录路径添加到d这个数组中,0,1是数组的索引（index）
d.Add "1", "\\IP****\e$\*****\"  
 
For Each i in d
       Set FSO = wscript.CreateObject("Scripting.FileSystemObject")
  Set Folder = FSO.GetFolder(d.Item(i))
  Set Files = Folder.Files
  If Files.Count <> 0 Then
   For Each File In Files
    If File.DateLastModified < Now - 0.05 Then   '判断是否超过N天
    FSO.DeleteFile(file)
    End If
   Next
  End If
Next

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

同语言下

.使用脚本将域账号添加到客户机的本地管理员组
.删除服务器上文件
.主动ping服务器是否宕机
.自动服务器检查的vbs脚本
.VBS脚本发送邮件，密送多人，带附件，可更换账号密码
.根据文件路径复制文件
.VBA操作数据库
.双击获取公网IP到剪贴板
.定时运行ie浏览执行网址不显示浏览器窗口
.批处理生成日历

可能有用的

.使用脚本将域账号添加到客户机的本地管理员组
.删除服务器上文件
.主动ping服务器是否宕机
.自动服务器检查的vbs脚本
.VBS脚本发送邮件，密送多人，带附件，可更换账号密码
.根据文件路径复制文件
.VBA操作数据库
.双击获取公网IP到剪贴板
.定时运行ie浏览执行网址不显示浏览器窗口
.批处理生成日历

Egbert贡献的其它代码(20)

.删除服务器上文件
.DbHelper-SQL数据库访问助手
.SQL Server判断数据库、表、存储过程、函数是否存在
.SQL 字符串去除空格函数
.RegistryHelper-注册表辅助类
.查询MySql数据库架构信息：数据库，表，表字段
.HttpOperater-模拟HTTP操作类
.设置文件夹用户权限
.AppPoolService-IIS应用程序池辅助类
.FileHelper-文件操作辅助类