vbaで参照設定する方法

質問

sub　フォルダをコピーする()
Dim myFSO As New FileSystemObject
myFSO.CopyFolder "D:\TEST", "D:\TEST2"
End Sub

を実行したいのですが、
Visual Basic Editor の [ツール]-[参照設定] で、
"Microsoft Scripting Runtime"
にチェックせずに、
vbaで参照設定する方法を教えてください。

バージョンは2007です。

ご回答よろしくお願いします。

回答No.1

keithin · ベストアンサー

dim myFSO as object
set myFSO = createobject("Scripting.FileSystemObject")
以下同じ

とします。

お礼

sub　フォルダをコピーする()
Dim myFSO As Object
Set myFSO = CreateObject("Scripting.FileSystemObject")
myFSO.CopyFolder "D:\TEST", "D:\TEST2"
End Sub

で、できました！
ありがとうございました。大変参考になりました。