Question

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

要安装它，我去了每台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

删除APPDATA文件夹中的文件

1 个答案: