Public Function ReadRowConnent(FileName As String,iRow As Integer)
'FileName = App.Path & "\Config.ini"
If Len(Dir$(FileName)) = 0 Then
err.Raise 53 '文件没有找到
'这里处理没找到文件事件
Else
Dim j As Integer
j = 0
Open FileName For Input As #1
'取文件内容，这种是知道文件的固定行数
Do While Not EOF(1)
'------------取文件内容
Line Input #1,DateSr
j = j + 1
If j = iRow Then '这个你也可以用其他判断语句。
'在这里可以处理 TEMP 读取的内容
ReadRowConnent = DateSr
End If
Loop
Close #1
End If

End Function

'调用方法------------------------------------------------

Text1 = ReadRowConnent(app.path & "/config.ini",2) '第一个参数是路径，第二个参数是你要读取的行数 原文链接：https://www.f2er.com/vb/259335.html