VBScriptでzipを解凍したい

Question

VBSでzipファイルの解凍を行いたい

vbsでパスワードなしのzipファイルの解凍処理を行いたいです。
はじめにwordでこんにちは.docxというファイルを作成し、エクスプローラで右クリック後、「送る」から「圧縮(zip形式)フォルダ」を選択します。そして作成された、こんにちは.zipをvbsで解凍しようとしていますが、以下のエラーが出ます。

仮に、このソースコード以外にvbsでzip解凍が簡単にできる方法があれば教えていただきたいです。

発生している問題・エラーメッセージ

NameSpaceにオブジェクトがありません

該当のソースコード

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です。

Comments

[xail2222]

'解凍するZIPファイル
strFrom = "C:\Users\Owner\Documents"
となっていますが、ここにzipファイル名を指定しても同じなのですか？
それとも、そのフォルダにあるzipファイル全てを展開しようとしているのですか？

Answer 1

それぞれの後にちゃんと値が取れているか確認しましょう。

  Set FilesInZip = objShell.NameSpace(strFrom).items
  WScript.Echo typename(FilesInZip)
  Set objFolder = objShell.NameSpace(strTo)
  WScript.Echo typename(objFolder)

  objFolder.CopyHere FilesInZip, FOF_NOCONFIRMATION + FOF_SILENT

Nothingなら、引数がおかしいです（存在しないパスを指定している）。

Answer 2

strFrom に 解凍する ZIP ファイル名が指定されていない為ではないでしょうか？

'解凍するZIPファイル
'strFrom = "C:\Users\Owner\Documents"
strFrom = "C:\Users\Owner\Documents\こんにちは.zip"