t = Month(Date)
d = Day(Date)
Open "jieri.txt" For Input As #2
Dim jmonth$, jday$, name$
Do While Not EOF(2)
Input #2, jmonth, jday, name 'Input #2, 这里错误 应该是line input#2,一个变量,用于装载此行的内容!
If t <> Val(jmonth) Or d <> Val(jday) Then l = 0
Loop
Close #2
这样写吧Open app.path & "\jieri.txt" For Input As #2
缺省的当前目录是VB的安装目录。
我只是来补充 不要分
为什么一定要来2号文件序号呢
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024