读取系统配置文件出错

Question

Public Function read_string(filename As String) As Boolean
Path = App.Path + "\" + filename
t = Dir(Path)
If t <> "" Then
  Open Path For Input As #1
  i = 0
  Do While Not EOF(1)
     If i = 0 Then Line Input #1, srname
     If i = 1 Then Line Input #1, dataname
     If i = 2 Then Exit Do
     i = i + 1
  Loop
  Close #1
  If srname <> "" And dataname <> "" Then
    read_string = True
  Else
    read_string = False
    MsgBox "系统配置文件数据丢失!"
  End If
  Exit Function
Else
  MsgBox "系统配置文件:" + filename + "丢失!"
  read_string = False
  Exit Function
End If
End Function第一行出错：”变量未定义“
请高手解答，谢谢！！！！！！！！！！！！！！！！！！！！

Answer 1

dim Path as string
或者把你前边的Option Explicit去掉