就是这个问题。。解决了~
呵呵。，到头来，，原来我没表达清楚。。
Open "D:\pk.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, p
sTmp = sTmp & p & vbCrLf
Loop
Close #1
If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-06-19 22:25
2007-06-20 13:02