再インストール後そのようにやってみましたがエラーが出て完了しませんでした
メッセージはこれです

行：77
文字：9
エラー：書き込みできません。
コード：800A0046
ソース：Microsoft VBScript 実行時エラー

77行というと

> ' unpack ファイル削除
> FSO.DeleteFolder PathDstUpk, True

の下の行が77行目です

何かお教えいただけたら幸いです