[Iska]

Option Explicit Dim objDrive Dim strPath … »

gen0m.rsw, код на форуме оформляется тэгом [code].

выдал ошибку, »

Принято выкладывать точное сообщение об ошибке. Обычно достаточно нажать «Ctrl-C» в окне с сообщением об ошибке.

Мне по проще, дублировать определённые секции, и редактировать пути!!! »

Пробуйте (не проверялось):

читать дальше »

Код:

Option Explicit

Dim objDictionary
Dim elem

Dim strPath
Dim objDrive


Set objDictionary = WScript.CreateObject("Scripting.Dictionary")

With objDictionary
	.Add "RSWP\REGEDIT\RegWorkshop\RegWorkshop.exe", "RegWorkshop.lnk"
	.Add "RSWP\REGEDIT\Regshot\_Regshot.exe",        "Regshot.lnk"
	
	For Each elem In .Keys
		With WScript.CreateObject("Scripting.FileSystemObject")
			For Each objDrive In .Drives
				If objDrive.DriveType = 2 Then
					strPath = .BuildPath(objDrive.RootFolder.Path, elem)
					
					If .FileExists(strPath) Then
						With WScript.CreateObject("WScript.Shell")
							With .CreateShortcut(WScript.CreateObject("Shell.Application").NameSpace("shell:AppData").Self.Path & _
								"\Microsoft\Internet Explorer\Quick Launch\" & objDictionary.Item(elem))
								
								.TargetPath       = strPath
								.IconLocation     = strPath & ", 0"
								.WorkingDirectory = "%SystemRoot%\system32"
								
								.Save
							End With
						End With
						
						Exit For
					End If
				End If
			Next
		End With
	Next
	
	.RemoveAll
End With

Set objDictionary = Nothing

WScript.Quit 0