Цитата 123rese:
|
Как сделать сие на практике - ума не приложу. »
|
Перейти к использованию WSH/PoSH вместо пакетных файлов.
Цитата 123rese:
|
Дайте, пожалуйста, наводку. »
|
Держите:
Код:
Option Explicit
Dim objFile
Dim objWshShell
With WScript.CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")
For Each objFile In .GetFolder(objWshShell.SpecialFolders.Item("Desktop")).Files
Select Case LCase(.GetExtensionName(objFile))
Case "lnk"
With objWshShell.CreateShortcut(objFile.Path)
If .TargetPath = "C:\Program Files\Notepad++\notepad++.exe" Then
objFile.Name = "Мой Блокнот Плюс Плюс.lnk"
Exit For
End If
End With
End Select
Next
Set objWshShell = Nothing
End With
WScript.Quit 0
Заранее обращаю Ваше внимание, что поиск в примере производится
только на Рабочем столе пользователя, и не затрагивает общий для всех пользователей Рабочий стол.
