Windows 删除APPDATA文件夹中的文件

我有很多电脑目前都安装了个人宏工作簿。更具体地说，它们都有网络驱动器上个人宏工作簿的快捷方式

要安装它，我访问了每台电脑并运行以下VBScript：

Option Explicit
Dim oFSO, strAppData, objShell
Set objShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
objShell.CurrentDirectory = oFSO.GetParentFolderName(WScript.ScriptFullName)
strAppData=objShell.ExpandEnvironmentStrings("%APPDATA%") & "\Microsoft\Excel\XLSTART\"
oFSO.CopyFile "H:\Folder\Folder\Folder\PERSONAL 1.xlam - Shortcut.lnk", strAppData, True
Set objShell = Nothing
Set oFSO = Nothing

现在，我想从XLSTART文件夹中删除PERSONAL 1.xlam的快捷方式，并通过快捷方式复制到其他宏工作簿

---

这可能真的很容易，但我是VBS新手，我还没有找到一种在没有确切路径的情况下删除文件的方法。由于路径对于每台电脑都是唯一的，所以我不能在这里这样做。

您只需要修改上面脚本中的一行。请尝试以下操作：

   Option Explicit
   Dim oFSO, strAppData, objShell
   Set objShell = CreateObject("WScript.Shell")
   Set oFSO = CreateObject("Scripting.FileSystemObject")
   objShell.CurrentDirectory = oFSO.GetParentFolderName(WScript.ScriptFullName)
   strAppData = objShell.ExpandEnvironmentStrings("%APPDATA%") & "\Microsoft\Excel\XLSTART\"

   'here is the modified line
   oFSO.DeleteFile strAppData & "PERSONAL 1.xlam - Shortcut.lnk", True

   Set objShell = Nothing
   Set oFSO = Nothing

---

你知道你把文件复制到哪里了。使用相同的逻辑构建删除文件的路径。我可以发誓这是我尝试的第一件事，但没有成功。谢谢！