关于读取文件问题
各位大虾帮偶看一下,偶写了一段代码,能保存我的输入的内容.但好像读取不出来??
在线等哦,,,


'读取数据库

Public Sub readServer()
On Error GoTo aaaa
Dim strtmp As String, strT() As String
Open " File\sql.inf " For Input As #1
If EOF(1) = False Then
Line Input #1, strtmp
End If
Close #1
strtmp = Trim(strtmp)
If strtmp <> " " Then
strT = Split(strtmp, "|| ")
For i = 0 To 3
strT(i) = strT(i)
Next
strSQLServer = strT(0)
strSQLUser = strT(1)
strSQLPwd = strT(2)
strSQLDb = strT(3)
End If
Exit Sub
aaaa:
strSQLServer = " "
strSQLUser = " "
strSQLPwd = " "
strSQLDb = " "
Exit Sub
End Sub


'保存sql服务器配置信息

Public Sub saveserver(ByVal strServer As String, ByVal strUser As String, ByVal strDb As String)

Open "File\sql.inf " For Output As 1#
Print #1, strServer; "|| "; strUser; "|| "; strPwd; "|| "; strDb
Close #1
Exit Sub
aaaa:
MsgBox "保存SQL服务器信息失败！ ", vbCritical

End Sub

[解决办法]
读取文件的格式不对~~~当打开文件时不能光有文件名，还要有路径
例如：Open "c:\File\sql.inf " For Output As 1#