删除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都是独一无二的,所以我不能这样做。
答
你只需要修改上面的脚本中的一行。请尝试以下操作:
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
+0
我可以发誓,这是我尝试的第一件事,它没有奏效。谢谢! – Robby
您知道您将文件复制到的位置。使用相同的逻辑来构建删除文件的路径。 –