Part3で出てた書庫削除のスクリプトを使いたいんだけど
設定してみてもファイルが削除されない

WIndows8とMassigra0.45だとこのままじゃ使えないのかな

Dialog = True
FilePath = WScript.Arguments(0)
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(FilePath) Then
If Dialog Then
ReMsg = MsgBox(FilePath & vbCrLf & vbCrLf & "ごみ箱へ移動しますか？", vbQuestion + vbYesNo, "書庫削除")
Else
ReMsg = vbYes
End If
If ReMsg = vbYes Then
CreateObject("Wscript.Shell").SendKeys "{DOWN}"
ParentFolder = FSO.GetParentFolderName(FilePath)
FileName = FSO.GetFileName(FilePath)
CreateObject("Shell.Application").NameSpace(ParentFolder).ParseName(FileName).InvokeVerb("delete")
End If
End If