[Iska]

morozov_s_v, Теги форума.

Код:

Option Explicit

Dim objFSO
Dim strPath2Desktop
Dim strPath


With WScript.CreateObject("Scripting.FileSystemObject")
	strPath2Desktop = WScript.CreateObject("WScript.Shell").SpecialFolders("Desktop")
	
	For Each strFile In Array( _
			"obmen на server2.lnk", _
			"obmen (server2).lnk", _
			"obmen.lnk", _
			"-=Декларация_2011=-.lnk", _
			"Ярлык для grym.exe.lnk", _
			"Ярлык для grym.lnk" _
		)
		
		strPath = .BuildPath(strPath2Desktop, strFile)
		
		If .FileExists(strPath) Then
			.DeleteFile strPath, True
		End If
	Next
End With

WScript.Quit 0