作者SmallBeeWayn (喵喵叫的蜜蜂猫)
看板Visual_Basic
标题[VBS ] 使用万用字元列出档案？
时间Fri Apr 2 18:27:13 2010
下面是我写得一个VBScript程式, 档名 delold.vbs
控制方式：delold 天数 目录 档名尾
用途是删除指定目录下超过n天的程式
目前功能大致正常，可是不支援万用字元跟子目录
万一遇到删不掉的就跳过
其他的问题先不提，请问我要如何让输入第三引数是万用字元
而不是用现有的判断： right(档名, 长度) = 档名尾
======================以下程式开始======================
Option Explicit
Dim args
Set args = wscript.arguments
if not args.count = 3 then
wscript.echo "delold 天数 目录 档名尾" &_
vbcrlf & vbcrlf & "ex. delold 7 ""D:\Temp"" "".bak""" &_
vbcrlf & "删除超过七天前在D:\Temp下的*.bak档案" &_
vbcrlf & "不支援万用字元及子目录" &_
vbcrlf & vbcrlf & "档名尾可用 """" 指定为目录下的所有档案"
elseif not isnumeric(args(0)) then
wscript.echo "无效的天数输入"
elseif args(0) < 1 then
wscript.echo "无效的天数输入"
else
'判断跟输入结束，主要工作程式开始
Dim days, extlen, fc, ff
days=int(now() - args(0))
Set fc = CreateObject("Scripting.FileSystemObject")_
.GetFolder(args(1)).Files
extlen=Len(args(2))
on error resume next
for each ff in fc
if right(ff.Name, extlen) = args(2) and _
ff.DateLastModified < days then ff.delete
next
end if
--
简答题: 请简述魔剑的使用及保养方法
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.116.180.163