filesystemobjectを使う

１．参照設定
参照設定に「Microsoft Scripting Runtime」を追加

２.コード
Dim fso As New Scripting.FileSystemObject
※CreateObjectでもいいが、型情報が使えなくなる。上記のようにNewすればインテリセンスでメソッド名などは入力補完される。