Сравнение ярлыков
Ситуация такова - на рабочем столе очень много ярлыков, из которых нужно выбрать один с определенным расположением и переименовать его.
По логике, нужно сделать так:
1) Сравнить все ярлыки по местоположению
2) Когда ярлык с определенным местоположением найден, переименовать его.
Как сделать сие на практике - ума не приложу. Дайте, пожалуйста, наводку.
|
Цитата:
Цитата 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
Заранее обращаю Ваше внимание, что поиск в примере производится только на Рабочем столе пользователя, и не затрагивает общий для всех пользователей Рабочий стол. |
Iska, вроде бы товарища интересует не переименовать ярлык с заданным именем -- а ярлык с заданными [на Рабочем Столе] координатами, какое бы имя у этого ярлыка не было.
Смысл сего действа неясен. И интересно, что будет если координаты изменятся хоть на один пиксел. :)
|
Время: 20:53.
© OSzone.net 2001-
