Re: 管理画面からプラグインを削除でプラグイン以外のフォルダも削除される

// プラグインフォルダを削除
$folder->delete(APP.'plugins'.DS.$pluginName);

// 一時フォルダを削除
$folder->delete($tmpPath);

Option Explicit
On Error Resume Next

Dim str
Dim strDrive        ' ドライブ名
Dim objWshShell
Dim cmd             ' コマンド代入
Dim objFSO
Dim objWShell
Dim strNewFolder    ' 移動するフォルダ
Dim strCmdLine      ' 実行するコマンド
Dim strUrl          ' 表示するページ
Dim objIE           ' IE オブジェクト

strDrive = "Z"
strUrl   = "http://localhost"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objWshShell = CreateObject("WScript.Shell")
Set objWShell = CreateObject("WScript.Shell")

' カレントディレクトリを str に代入
str= objWshShell.CurrentDirectory

' 仮想ドライブの割り当て
cmd = "subst z: " & str 
CreateObject("WScript.Shell").Run cmd ,0
WScript.Sleep 5000
If (objFSO.DriveExists("Z")) then
else
    WScript.Sleep 5000
end if

' XAMPP Lite を起動
If Err.Number = 0 Then
    strNewFolder = strDrive & ":\xampplite"
    objWshShell.CurrentDirectory = strNewFolder
    strCmdLine = "xampp_start.exe"
    objWshShell.Exec(strCmdLine)
Else
    WScript.Echo "エラー: " & Err.Description
End If

' InternetExplorer を起動
Set objIE = WScript.CreateObject("InternetExplorer.Application")
    objIE.Visible = True
    objIE.Navigate strUrl

WScript.Echo strDrive & " ドライブを作成しました。" & vbCrLf & "XAMPP Lite を起動しました。"

Set objIE = Nothing
Set objFSO = Nothing
Set objWshShell = Nothing
Set objWShell = Nothing