VB
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject") ファイルオブジェクト
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")