长宁区定西路11oo号:VB6.0导入文件,点取消时出现“路径/文件访问错误”
来源:百度文库 编辑:杭州交通信息网 时间:2024/05/11 17:43:22
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
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开发数据库时在其他的电脑运行数据库的路径不对
把注册表文件导入注册表时总提问"是否导入注册表?"请问怎样才能取消这提问,谢谢