这段代码我不知道怎么用通配字符

vincenthan

Dim a1,a2,a3,a4,a5,a6
Set a1=createobject("scripting.filesystemobject")
Set a2=a1.createfolder("e:\han")
Set a3=a1.createtextfile("e:\han\8.txt")
Set a6=a1.getfolder("e:\han")
Set a4=a1.getfile("e:\han\8.txt")
Set a5=a1.opentextfile("e:\bin.txt",2,true)
a5.writeline("the last modified time is '"&a4.datelastmodified&"'")
a5.close
If a4.datelastmodified="2007-8-13*" Then
        a3.close
        a4.delete
        else
        a4.copy("e:\8.txt")
        a3.close
    a6.delete
End If


a4指向的文件的修改日期为2007－8－13 10：10：06，但我不知道怎么用通配符匹配，有哪位高人知道吗，指点一下

zhangj8826

ding qi

loho1968

instr(a4.datelastmodified,"2007-8-13")>0

vincenthan

sdlkfj3 ,谢谢你的回答，不过这似乎回避了通配符的问题，如果不是在左边，而是在一些任意的位置，还要另想方法，不管怎么说，还是谢谢你，至少解决了当下的问题，强啊

yuandjing

恩，想不到正则还能换个思路去解决

lantianwei

呵呵 思路不错！

surlary

为什么看到通配符就想到正则呢？不要草木皆兵啊。
把If a4.datelastmodified="2007-8-13*" Then
改成If Left(a4.datelastmodified, 9)="2007-8-13" Then
试试。

vincenthan

是怎么用，是改成2007-8-13.*吗，可是我试这样不行啊sdlkfj9

bobile

顶起呀，呵呵

bobile

用.*吧，就是正则匹配了

风过无息

.*就好了．

vincenthan

用的*是不正确的，无法实现a6.deletesdlkfj7