パスワード付のzipファイルを解凍する関数

5/31 追記　自宅環境だとcmdでunzipコマンドが通らない。
どうしたらunzipをcmdで使えるようになるのか調査中。
http://www.info-zip.org/ にあるものを適切にインストールすればよいらしいが引き続き調査中

Public Function unzip(sFileName As String, sPwd As String) As Boolean
  On Error GoTo err_Trap
  
  Dim ShellObj
   
  Set ShellObj = CreateObject("WScript.Shell")
  Debug.Print "unzip -d """ & Replace(sFileName, ".zip", "") & """ -P " & sPwd & """" & sFileName & """"
  ShellObj.Run "unzip -d """ & Replace(sFileName, ".zip", "") & """ -P " & sPwd & " """ & sFileName & """"
  
  unzip = True
  Exit Function
err_Trap:
  Debug.Print Err.Description & Err.Number
  unzip = False
  
 
End Function