VBSでzipファイルの解凍を行いたい
vbsでパスワードなしのzipファイルの解凍処理を行いたいです。
はじめにwordでこんにちは.docxというファイルを作成し、エクスプローラで右クリック後、「送る」から「圧縮(zip形式)フォルダ」を選択します。そして作成された、こんにちは.zipをvbsで解凍しようとしていますが、以下のエラーが出ます。
仮に、このソースコード以外にvbsでzip解凍が簡単にできる方法があれば教えていただきたいです。
発生している問題・エラーメッセージ
NameSpaceにオブジェクトがありません
該当のソースコード
VBScriprt
Option Explicit Dim strFrom Dim strTo Dim objShell Dim FilesInZip Dim objFolder '解凍するZIPファイル strFrom = "C:\Users\Owner\Documents\こんにちは.zip" '解凍先 strTo = "C:\Users\Owner\Documents\" '定数 Const FOF_SILENT = &H04 '進捗ダイアログを表示しない。 Const FOF_NOCONFIRMATION = &H10 '上書き確認ダイアログを表示しない([すべて上書き]と同じ)。 '************************************************************** 'オブジェクト生成 Set objShell = CreateObject("Shell.Application") Set FilesInZip = objShell.NameSpace(strFrom).items Set objFolder = objShell.NameSpace(strTo) '解凍 If (Not objFolder Is Nothing) Then objFolder.CopyHere FilesInZip, FOF_NOCONFIRMATION + FOF_SILENT End If
試したこと
NameSpaceのオブジェクトがありませんというエラーでしたので、オブジェクト作成してみましたが上手くいきませんでした。
補足情報(FW/ツールのバージョンなど)
使用しているパソコンはWindows10です。
まだ回答がついていません
会員登録して回答してみよう