删除APPDATA文件夹内的文件

我有许多目前安装有个人宏工作簿的PC。更具体地说，它们都有一个到网络驱动器上个人宏工作簿的快捷方式。删除APPDATA文件夹内的文件

要安装的是，我到每一个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文件夹中删除快捷方式到个人1.xlam并复制的快捷方式不同的宏观工作簿。

这可能很容易，但我是VBS的新手，我还没有找到一种方法来删除没有确切路径的文件。由于这条道路对每台PC都是独一无二的，所以我不能这样做。

来源

2017-08-09 Robby

您知道您将文件复制到的位置。使用相同的逻辑来构建删除文件的路径。 –

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

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

来源

2017-08-09 15:45:00

我可以发誓，这是我尝试的第一件事，它没有奏效。谢谢！ – Robby

删除APPDATA文件夹内的文件

回答

相关问题