>>674-677
Public Set fs = CreateObject("Scripting.FileSystemObject")
これはエラーがでました。
パブリックのオブジェクトの作成方法はあると思うのですが・・・