ファイルオブジェクト生成

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")