エラーが出るコードを予想
Set fso = CreateObject("FileSystemObject")
ネットでサンプル探せばわかると思うけどこんな定義してるコードはないよ