Windows 如何使用vbscript删除多个文件夹、桌面和“开始”菜单快捷方式
我以前从未做过vbscript,所以我不知道我的问题是否很简单。以下是必须执行的步骤流程: 检查是否存在并删除位于c:\test1的文件夹(如果找到),然后继续。如果未找到,请继续。 检查是否存在并删除位于c:\programfiles\test2的文件夹(如果找到),然后继续。如果未找到,请继续。 检查是否存在桌面快捷方式和“开始”菜单快捷方式,如果找到则删除。如果没有退出 我可以使用以下代码删除2个文件夹:Windows 如何使用vbscript删除多个文件夹、桌面和“开始”菜单快捷方式,windows,vbscript,Windows,Vbscript,我以前从未做过vbscript,所以我不知道我的问题是否很简单。以下是必须执行的步骤流程: 检查是否存在并删除位于c:\test1的文件夹(如果找到),然后继续。如果未找到,请继续。 检查是否存在并删除位于c:\programfiles\test2的文件夹(如果找到),然后继续。如果未找到,请继续。 检查是否存在桌面快捷方式和“开始”菜单快捷方式,如果找到则删除。如果没有退出 我可以使用以下代码删除2个文件夹: strPath1 = "C:\test1" strPath1 = "C:\test1
strPath1 = "C:\test1"
strPath1 = "C:\test1"
DeleteFolder strPath1
DeleteFolder strPath1
Function DeleteFolder(strFolderPath1)
Dim objFSO, objFolder
Set objFSO = CreateObject ("Scripting.FileSystemObject")
If objFSO.FolderExists(strFolderPath) Then
objFSO.DeleteFolder strFolderPath, True
End If
Set objFSO = Nothing
但我需要运行一个脚本来删除不同路径中的两个文件夹,两个快捷方式,一个在“开始”菜单中,另一个在桌面上
我正在尝试使用以下代码删除桌面上的快捷方式:
Dim WSHShell, DesktopPath
Set WSHShell = WScript.CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")
on error resume next
Icon = DesktopPath & "\sample.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set A = fs.GetFile(Icon)
A.Delete
WScript.Quit
它适用于桌面上的txt文件,但如何从桌面和“开始”菜单中删除应用程序的快捷方式。快捷方式是.lnk,使用相同的原则和右扩展名。@daniel:要从“开始”菜单中删除,我应该将扩展名.lnk放在那里还是将其视为文件夹?扩展名.lnk对windows快捷方式有效,无论其位置如何。“开始”菜单没有什么不同,基本上是专门的文件夹。路径是通过WSHShell.SpecialFolders(“StartMenu”)获得的,但我想您知道这一点。
strPath1 = "C:\test1"
strPath2 = "C:\test2"
DeleteFolder strPath1
DeleteFolder strPath2
DeleteShortcut
'-------------------------------------------------------
Sub DeleteFolder(strFolderPath)
Set fso = CreateObject ("Scripting.FileSystemObject")
If fso.FolderExists(strFolderPath) Then
fso.DeleteFolder strFolderPath, True
End If
End Sub
'-------------------------------------------------------
Sub DeleteShortcut()
Set WSHShell = WScript.CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")
shortcutPath = DesktopPath & "\MyShortcut.lnk"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(shortcutPath) Then
Set myFile = fso.GetFile(shortcutPath)
myFile.Delete
End If
End Sub