有关脚本读取文件

Question

在ScriptControl的脚本中写下下面的一句
    'Open "D:\系统\CQ2IN.cql" For Binary As #1
会出现语句未结束的错误,敢问错在那儿

Answer 1

去掉了引号,没用的
我用文本框写入
Open "D:\移动系统\程序代码\学习VB\Script读取文件\CQ2IN.cql" For Binary As #1
然后
ScriptControl1.ExecuteStatement Text1
这样就避免了引号的问题.可是没用

Answer 2

scriptcontrol使用的是vbscript，而非vb或vba。
而vbscript本来就不支持open等文件I/O。

Answer 3

可以使用FileSystemObject对象：
================================
Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("这是一个测试。")
MyFile.Close

Answer 4

以上的vbscript代码可以在scriptscontrol中执行。
似乎用scriptcontrol1.add和run方法更方便些。