小弟编程急用，，跪求各位大哥了

Question

我想做如下的dll类似于fso(scripting.filesystemobject)
我向创建一个类似于fso的组建
set fso=createobject("scripting.fileystemobject")
set fs=fso.createtextfile("meishow.asp")
fs.writeline("heloo")
类似的+com的asp组建
我可以做到set fso=createobject("我的对象")
set fs=fso.我的方法
可是说，，不是一个对象或者方法
有没有相关的例子
创建对象后，引用这个对象的方法，，创建令外一个对象阿
跪地求个为大哥了

Answer 1

M$有个Script的控件,可以"二次开发"...'--------
在学校,连个API浏览器也没有!
不方便给详细的回答...
:| 郁闷...

Answer 2

set fs=fso.我的方法
-------------------
这里，“我的方法”必须相应地返回textstream对象。

Answer 3

是这个意思
我想做一个组件
这样引用
set my=createobject("MY.application")
set this=my.openmywork("text.asp")
反正就是类似的东西罗

Answer 4

你可以在组件中定义方法来实现，例如：
Public Function OpenMyWork(strAsp As String) As Long
  
End Function在函数体内容写入你要操作的东西

Answer 5

使用组件封装数据库操作(二)
http://www.csdn.net/develop/read_article.asp?id=22628

Answer 6

我引用的scrrun.dll
Private fso As Scripting.FileSystemObject
Public Function getfile() As Scripting.TextStream
Set fso = New Scripting.FileSystemObject
Set fs = fso.OpenTextFile(path)
Set getfile = fs
End Function
错误类型
Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 'End' /iisHelp/common/500-100.asp，行242 fso 错误 '800a000d' 类型不匹配 /test.asp，行3 

Answer 7

Private fso As Scripting.FileSystemObject
Public Function getfile(path As String) As Scripting.TextStream
Set fso = New Scripting.FileSystemObject
Set fs = fso.OpenTextFile(path)
Set getfile = fs
End Function
我引用
后
Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 'End' /iisHelp/common/500-100.asp，行242 fso 错误 '800a000d' 类型不匹配 /test.asp，行3 为什么阿

Answer 8

用vbs应该用createobject绑定对象，而且需要说明的是vbs的变量是不能定义类型的

Answer 9

你没看明白，。
dll代码
Private fso As Scripting.FileSystemObject
Public Function getfile(path As String) As Scripting.TextStream
Set fso = New Scripting.FileSystemObject
Set fs = fso.OpenTextFile(path)
Set getfile = fs
End Function

Answer 10

明白了：Private fso As Scripting.FileSystemObject
Public Function getfile(path As String) As Scripting.TextStream
Set fso = New Scripting.FileSystemObject
Set getfile = fso.OpenTextFile(path)
End Function试试