刪除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文件夾內的文件

回答

相關問題