Нужен скрипт, который бы присваивал ярлыку значок текстового документа.
Есть скрипт, который присваивает ярлыкам значок исполняемых файлов:
^{Dim oShell, oShortCut, sDeskTopPath
Set oShell = CreateObject("Wscript.Shell")
Set oShortCut = oShell.CreateShortcut("Путь")
oShortCut.TargetPath = "Путь к ссылаемому файлу"
oShellLink.IconLocation = "иконка (исп. файл), 0"
oShortCut.Save}
Т.е. нужно, чтобы присваивался значок обычного текстового или Word документа.

авторВозможно Вы имеете в виду, что Вам нужна иконка?
Нет, мне нужен скрипт, который будет присваивать ярлыку определённую иконку. Например, существует где-то на Рабочем столе файл 2.txt. У меня есть ярлык. Требуется присвоить моему ярлыку иконку от данного текстового файла с помощью скрипта.

Если так нельзя, то тогда может быть мне и нужна иконка для того, чтобы с неё "сдирать" иконку для ярлыка. Но это другая тема...

Спасибо, iMrTidy. После пути к файлу иконки следует некоторое число: ..., 0.
Если Вы напишите, что эти числа значят и какие они бывают, то соответсвенно у меня будет больше "возможностей".
Заранее благодарен.

Полностью проверил Ваш скрипт, iMrTidy. Работает, но это немного не то (иконка не совсем та). Я доработал его и получил нужную иконку:

_{Dim oShell, oShortCut, sDeskTopPath
Set oShell = CreateObject("Wscript.Shell")
Set oShortCut = oShell.CreateShortcut("Путь")
oShortCut.TargetPath = "Путь к ссылаемому файлу."
oShortCut.IconLocation = "%SystemRoot%\system32\SHELL32.dll, 70"
oShortCut.Save}

Объяснять значения чисел уже надо. Понял...
Спасибо ещё раз за хорошую идею.
По идее на Windows-8 и -7 данный файл с иконками расположен в одном и том же месте. Чтобы отвергнуть сомнения поинтересуюсь у Вас, так ли это. У меня Windows-8.

авторвообще-то гугл никто не отменял, я не знал ответа, но мне понадобилось около 20 секунд, чтобы узнать, что это порядковый номер иконки.

Не люблю оправдываться, но...
Я позже ознакомился со скриптом, чем отправил сообщение. Первое, что бросилось в глаза - это числа после запятой.
После примерно такого же времени изучения в формате .vbs и без Google и мне очевидно это.

Где находятся файлы с иконками для объектов
WScript
WordPad
MicrosoftWord
MicrosoftPoint
MicrosoftExel
Файлов расширений
.jpg
.avi
.pdf
.exe

Shoker.Pro,
Спасибо, но всё что Вы написали мне известно. Мне нужно знать конкретно где находятся иконки для файлов написанных выше расширений и объектов.

Выше написано, какая у меня операционная система. А там, если Вы не ламер, можно определить где конкретно находятся DLL с иконками. Мне слишком долго самому отыскивать необходимые файлы. Вам должно быть известно, что папка в которой находится искомое - "C:\Windows\System32".

Совсем забыл добавить, что можно и без .ехе обходиться. А каждым программам соответсвуют одни и те же DLL с иконками. Ну, если у Вас старая Windows или др. операционная система, то это другое дело.

Проблема исчерпана благодаря одной прекрасной программе.
Может быть кто-нибудь тогда знает как произвести проверку по всем дискам и выявить наличие файлов определённых, сразу нескольких расширений.
Скрипт поиска конкретного файла по имени по всем папкам и подпапкам тоже нужен.

авторпоищите по этому подфоруму, рекурсивный обход папок тут приводился не раз
Плохо искал и ничего не нашёл. Больше 10 страниц...
Если Вы знаете конкретно где взять интересующее меня, то напишите ссылки либо прямо скрипты.

Спасибо, всё работает...