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フォルダから個人1.xlamへのショートカットを削除したいとショートカットをコピーします別のマクロブック。

これは本当に簡単かもしれませんが、私はVBSを初めて使用しているため、正確なパスを持たずにファイルを削除する方法が見つかりませんでした。パスは各PCに固有のものになるので、私はここでそれを行うことはできません。

Answer 1

上記のスクリプトの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