Open "c:\1.txt" For Input As #1
Open "c:\1.txt" For Input As #2
Line Input #1, r
Debug.Print r
Line Input #2, s
Debug.Print s
Close
你用的基锋软件?如果是别人的软件,你用外挂的形式添加这个功能想必是有些难度的。如果是你自己用VB6编写的程序,则用下面的方法就可以了。
Dim strRet as string
Dim PathFileName as string
PathFileName="C:\xxx.ini"
strRet = Dir$(PathFileName, vbNormal)
If Len(strRet) <>0 Then
MsgBox "存在"
Else
MsgBox "不存在"
End If
Dir() 检查文件携锋扰是否存在,不存在返回空串;存在返回文件信息
可根据第二个参数调整。辩旦
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)