删除APPDATA文件夹中的文件

Question

我有许多PC当前已安装“个人”宏工作簿。 更具体地说，它们都具有网络驱动器上“个人”宏工作簿的快捷方式。

要安装它，我去了每台PC并运行了这个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的新手，我还没有找到一种没有确切路径的方法来删除文件。 而且由于该路径对于每台PC都是唯一的，所以我在这里无法做到这一点。

Answer 1

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

   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