|
例2
新規ブックにて、
参照設定で「Microsoft Scripting Runtime」にチェックして
FSOのFileSystemObject型の参照が可能にして置いてください。
標準モジュールに
Sub test3()
Dim fso As FileSystemObject
Set fso = CreateObject("scripting.filesystemobject")
MsgBox fso.Drives.Count
MsgBox fso.aaaa
End Sub
このtest3を実行すると、
MsgBox fso.aaaa
↑ここがコンパイルエラーになります。
が、
Sub test3()
Dim fso As FileSystemObject
Set fso = CreateObject("scripting.filesystemobject")
MsgBox fso.Drives.Count
'MsgBox fso.aaaa ここは、コメント化しておく
End Sub
Sub test4()
Dim fso As Object
Set fso = CreateObject("scripting.filesystemobject")
MsgBox fso.Drives.Count
MsgBox fso.aaaa
End Sub
test4を実行すると、コンパイルエラーにはならず、
MsgBox fso.Drives.Count
>↑この結果のドライブ数が表示され、
MsgBox fso.aaaa
↑この実行時にエラーになります。これは、当たり前
つまり、プロシジャーの実行はされていることになります。
|
|