[megaloman]

Код:

DelFold = "Microsoft\Windows\Start Menu\Programs\System Tools"
EnvFolder = "%AppData%"

Set WSS = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

DelPath = WSS.ExpandEnvironmentStrings(EnvFolder) + "\" + DelFold
If FSO.FolderExists(DelPath) Then Rez = FSO.DeleteFolder(DelPath, True)

[BKPB]

megaloman, Огромное спасибо.

[Iska]

Чуть глы́́бже:

Код:

Option Explicit

Dim objFolderPrograms
Dim strFolder

With WScript.CreateObject("Scripting.FileSystemObject")
	Set objFolderPrograms = WScript.CreateObject("Shell.Application").NameSpace("shell:Programs")
	
	If Not objFolderPrograms Is Nothing Then
		strFolder = .BuildPath(objFolderPrograms.self.Path, "System Tools")
		
		If .FolderExists(strFolder) Then
			.DeleteFolder strFolder, True
		Else
			WScript.Echo "Can't find folder [" & strFolder & "]."
			WScript.Quit 2
		End If
	Else
		WScript.Echo "Can't determine explorer alias [shell:Programs]."
		WScript.Quit 1
	End If
	
	Set objFolderPrograms = Nothing
End With

WScript.Quit 0

[Iska]

Then Rez = FSO.DeleteFolder(DelPath, True) »

megaloman, метод .DeleteFolder() не возвращает результата своей работы (функция типа void).