关于定义对象变量

[okcat]

Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists("c:\报表") = False Then
MkDir "c:\报表"
End If
Set fs = Nothing
这是正确答案，
为什么写成下面不行~
Dim fs as Scripting.FileSystemObject
If fs.FolderExists("c:\报表") = False Then
MkDir "c:\报表"
End If
Set fs = Nothing
是不是因为我写的这个　FS相当于只定义了一个对象变量，没有实际的值

[victorycyz]

Dim fs as new Scripting.FileSystemObject

[laviewpbt]

实际上就是少了一个new
Dim fs as new Scripting.FileSystemObject
If fs.FolderExists("c:\报表") = False Then
MkDir "c:\报表"
End If
Set fs = Nothing

[Andy__Huang]

一般都是這樣寫的
dim fs as object
Set fs = CreateObject("Scripting.FileSystemObject")

[LichKingSZ]

支持楼上的，用new方法在多机调试时是很不方便的，虽然执行效率高（前段绑定）
我比较喜欢在设计时使用createobject的方法，而不引用对象库，可以等发布时再改成new

[flyingZFX]

最正确的写法，应该是这样的，
即有对象的声明，也有对象的建立。

Dim fs as Scripting.FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")

If fs.FolderExists("c:\报表") = False Then
MkDir "c:\报表"
End If
Set fs = Nothing

[okcat]

谢谢大家

[weiying94]

谁能告诉我在哪发表新主题啊!

[zyl910]

new是创建工程内部对象，前期绑定
CreateObject是用来创建外部自动化COM对象，后期绑定

[badboy168]

从没用过，好好学习一下

[starsoulxp]

呵呵，少了一个new
这样做比较规范一些。
Dim fs as Scripting.FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")

[thepointer]

还是这样快
Dim something As SomeObject
Set something = New SomeObject