水浒神兽图文攻略:VB6.0导入文件，点取消时出现“路径/文件访问错误”

来源：百度文库 编辑：高考问答 时间：2024/04/19 01:05:40
Dim strFileName As String '文件名
Dim lngFileNo As Long '文件号
Dim strTemp As String

strFileName = "" & Text5.Text & ""

'得到空闲文件号
lngFileNo = FreeFile()
'打开文件
Open strFileName For Input As lngFileNo '提示错误行，请问有方法可以解决吗？

Do Until EOF(lngFileNo)
Line Input #lngFileNo, strTemp
List1.AddItem strTemp
Loop

'关闭文件
Close lngFileNo
不好意思，你回答错误了，正确的是
strFileName = "" & Text5.Text & ""
If strFileName = "" Then
Exit Sub
Else
.....

end if

Private Sub Form_Load()
Dim strFileName As String '文件名
Dim lngFileNo As Long '文件号
Dim strTemp As String

strFileName = "f:\Text5.txt"

'得到空闲文件号
lngFileNo = FreeFile()
'打开文件
Open strFileName For Input As lngFileNo

Do Until EOF(lngFileNo)
Line Input #lngFileNo, strTemp
List1.AddItem strTemp
Loop

'关闭文件
Close lngFileNo
End Sub
错是没错了 但是不知道能不能符合你的要求

VB6.0导入文件，点取消时出现“路径/文件访问错误” 为什么我安装vb6.0的时候总是出现一个窗口说无法打开下载路径的一个文件？谢谢帮忙我急用！ 导入文件时出现的问题 VB6中刷新FileListBox时出现"路径未找到 实时错误76" 该怎么办？ VB6.0安装时出现错误提示 我用的事FLASH8.0为什么我导入mp3格式的音乐的时候出现(读取文件时出现错误,一个或多个文件不能导入) 我用的事FLASH8.0为什么我导入mp3格式的音乐的时候出现(读取文件时出现错误,一个或多个文件不能导入) 用VB6.0编写的系统在其他的机器运行时数据库路径不对 vb6.0开发数据库时在其他的电脑运行数据库的路径不对 把注册表文件导入注册表时总提问"是否导入注册表?"请问怎样才能取消这提问,谢谢