7,785
社区成员
发帖
与我相关
我的任务
分享用OpenAsTextStream打开一个文件，如果判断打开失败？
例如
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
下面我该写点什么？为了判断是否打开文件成功。
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
下面我该写点什么？为了判断是否打开文件成功。
...全文
请发表友善的回复…
发表回复
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
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
