title: I am unable to delete a file on the Desktop (All Users) but I could delete without the script
body: <p>It crashes on wshShell.Run.</p>
  
  <p>You can see that I run a WScript.Echo and it does print the location of the file name. When I run it, it says the "The system could not find the file specified"</p>
  
  <p>I tried objFile.delete but it says Permission denied. If i perform "del " in the command prompt, it works.</p>
  
  <pre><code>For Each objFile In colFiles
     bMatch = objRE.Test(objFile.Name)
     If bMatch Then
        WScript.Echo objFile.Name
        WScript.Echo objFile.Path
          Set wshShell = WScript.CreateObject ("WSCript.shell")
          wshShell.Run "del " &amp; objFile.Path, 1, True     
          Set wshShell = Nothing
  
     End If
  Next
  </code></pre>
  
  <p>Output</p>
  
  <pre><code>Lotus Notes 8.5.lnk
  C:\Users\Public\Desktop\Lotus Notes 8.5.lnk
  (null) (79, 3) : (null)
  </code></pre>
  
  <p>------------------ UPDATE ------------------
  The following works perfectly if it's on the Users Desktop (not the AllUsersDesktop). I'm trying to delete it from the AllUsersDesktop</p>
  
  <pre><code>For Each objFile In colFiles
     bMatch = objRE.Test(objFile.Name)
     If bMatch Then
       objFile.Delete
  
     End If
  Next
  </code></pre>
  
  <hr>
  
  <p>After applying the following code, I get this error</p>
  
  <pre><code>Lotus Notes 8.5.lnk
  C:\Users\Public\Desktop\Lotus Notes 8.5.lnk
  (null) (81, 3) : (null)
  </code></pre>
  
  <p>Code: (updated as of 5/23)</p>
  
  <pre><code>Set objShell = CreateObject("WScript.Shell")
  strCurrentDirectory = objShell.SpecialFolders("AllUsersDesktop")
  Set objShell = CreateObject("Shell.Application")
  Set objFolder = objShell.Namespace(strCurrentDirectory)
  Set objFolderItem = objFolder.Self
  
  Set objFolder = objFS.GetFolder(strCurrentDirectory)
  Set colFiles = objFolder.Files
  
  Set objRE = New RegExp
  objRE.Global     = True
  objRE.IgnoreCase = True
  objRE.Pattern    = "notes"
  
  For Each objFile In colFiles
     bMatch = objRE.Test(objFile.Name)
     If bMatch Then
        WScript.Echo objFile.Name
        WScript.Echo objFile.Path
          Set wshShell = WScript.CreateObject ("WSCript.shell")
          wshShell.Run "del """ &amp; objFile.Path &amp; """", 1, True  
          Set wshShell = Nothing
  
     End If
  Next
  </code></pre>