用OpenAsTextStream打开一个文件,如果判断打开失败?

kzh 2003-12-18 04:33:08
例如
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
下面我该写点什么?为了判断是否打开文件成功。
...全文
74 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
SoHo_Andy 2003-12-18
加上错误捕捉
Private Sub Command1_Click()
On Err GoTo errHandle
Dim fs, f, ts, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("d:\test1.txt")
Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
ts.Close
errHandle:
If Err.Number = 5 Then
MsgBox "无法打开文件"
End If
End Sub
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7487

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-12-18 04:33
社区公告
暂无公告