VBScript来删除文件夹

我正在使用以下代码删除该文件夹，因为它被其他应用程序使用。我收到一个错误：

权限被拒绝，无法删除文件夹

我需要一个代码来检查该文件夹是否正在被其他应用程序使用，如果是这样，请终止该进程，然后删除该文件夹

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\Users\x")
'delete all files in root folder
For Each f In folder.Files
  On Error Resume Next
  name = f.Name
  f.Delete True
  If Err Then
    WScript.Echo "Error deleting:" & name & " - " & Err.Description
  Else
    WScript.Echo "Deleted:" & name
  End If
  On Error GoTo 0
Next
'delete all subfolders and files
For Each f In folder.SubFolders
  On Error Resume Next
  name = f.Name
  f.Delete True
  If Err Then
    WScript.Echo "Error deleting:" & name & " - " & Err.Description
  Else
    WScript.Echo "Deleted:" & name
  End If
  On Error GoTo 0
Next

---

如果该文件夹被explorer.exe阻止怎么办？终止此进程可能会有风险。请与

/local on

选项一起使用，以执行以下操作。用于终止该进程。