windows - 如何使用 vbscript 删除多个文件夹、桌面和开始菜单快捷方式

Question

我以前从未做过任何 vbscript，所以我不知道我的问题是否很简单。以下是必须完成的步骤流程：

检查是否存在并删除 c:\test1 中的文件夹，如果找到并继续。如果没有找到继续。检查是否存在并删除 c:\programfiles\test2 中的文件夹，如果找到并继续。如果没有找到继续。检查桌面快捷方式和开始菜单快捷方式是否存在，如果找到则删除。如果不退出。

我可以使用以下代码删除 2 个文件夹：

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

但是我需要运行一个脚本来删除不同路径中的 2 个文件夹，2 个快捷方式，一个在开始菜单中，一个在桌面上。

我正在尝试使用此代码删除桌面上的快捷方式：

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 文件，但是如何从桌面和开始菜单中删除应用程序的快捷方式。

Answer 1

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