CreateObjectでエラー

ＶＢ初心者です。
ＶＢ６で以下のコードのCreateObjectがエラー になってしまいます。
何が原因と考えられますか？

Dim objFileSys As Object

CheckFileExist = False


'ファイルの有無を確認する
Set objFileSys = CreateObject("Scripting.FileSystemObject")
　　↑
　　ここで、エラーが発生

CheckFileExist = objFileSys.FileExists(S_strFileFull)
Set objFileSys = Nothing

　　エラーメッセージが
　　「オートメーションエラーです。
　　　ライブラリが登録されてません。」

　　と出てしまいます。何が原因と考えられますか？
　　よろしくお願いします。

No.1 ベストアンサー 回答者： marutone 回答日時： 2011/02/17 13:02

FileSystemObjectがないのではないでしょうか。

一度、FileSystemObjectを参照設定されてみては如何でしょうか。

この回答へのお礼

回答ありがとうございます。
原因は、scrrun.dll が登録されていなかったためです。
regsvr32 scrrun.dll
で、現象でなくなりました。
なぜ、scrrun.dllが登録しないといけなくなったかは不明ですが？
とりあえず、先に進めます。

お礼日時：2011/02/17 14:05