ZIPファイルを解凍するVBS

WSH 
'解凍するZIPファイル
DIR_SOURCE = "C:\Users\ta.harada-bsw\Desktop\TEST\20150401.zip"
'解凍先
DIR_DEST = "C:\Users\ta.harada-bsw\Desktop\TEST"

'定数
Const FOF_SILENT            = &H04    '進捗ダイアログを表示しない。
Const FOF_NOCONFIRMATION    = &H10    '上書き確認ダイアログを表示しない（[すべて上書き]と同じ）。

'**************************************************************

  'オブジェクト生成
  Set objShell = CreateObject("Shell.Application")

  Set FilesInZip = objShell.NameSpace(DIR_SOURCE).items
  Set objFolder = objShell.NameSpace(DIR_DEST)

  '解凍
  If (Not objFolder Is Nothing) Then
     objFolder.CopyHere FilesInZip, FOF_NOCONFIRMATION + FOF_SILENT
  End If

  msgbox "解凍がおわったよ"


動作確認環境:Windows 7 SP1