7,789
社区成员
发帖
与我相关
我的任务
分享问个简单问题。
Private Sub Command4_Click()
Dim objFSO As FileSystemObject
Dim objText As TextStream
Set objFSO = New FileSystemObject
Set objText = objFSO.OpenTextFile(App.Path & "\temp.txt", _
ForReading, False, TristateUseDefault)
Call objText.Close
End Sub
报用户类型未定义， 请问为什么？ 谢谢
Dim objFSO As FileSystemObject
Dim objText As TextStream
Set objFSO = New FileSystemObject
Set objText = objFSO.OpenTextFile(App.Path & "\temp.txt", _
ForReading, False, TristateUseDefault)
Call objText.Close
End Sub
报用户类型未定义， 请问为什么？ 谢谢
...全文
请发表友善的回复…
发表回复
yijiansong 2003-09-18
- 打赏
- 举报
菜单“工程”-〉“引用”，然后选中“Microsoft scripting runtime”即可
liul17 2003-09-18
- 打赏
- 举报
点击 上面的 "管理"即可
liul17 2003-09-18
- 打赏
- 举报
加载 vb菜单 [工程]->[引用]-> microsoft script runtime
射天狼 2003-09-18
- 打赏
- 举报
要先引用才行~~
atuzaicsdn 2003-09-18
- 打赏
- 举报
太感谢了。 请问怎么才能结贴呢？ 这样才能给你分把。
谢谢
谢谢
felix 2003-09-18
- 打赏
- 举报
菜单“工程”-〉“引用”，然后选中“Microsoft scripting runtime”即可
fraser01 2003-09-18
- 打赏
- 举报
引用了吗？
需要引用 Microsoft Scripting Runtime
需要引用 Microsoft Scripting Runtime
