View previous topic :: View next topic |
Author |
Message |
Andrey_A
![](images/avatars/463408325511d535a14d3c.gif)
Joined: 10 Apr 2009 Posts: 394 Location: Сочи
|
(Separately) Posted: Fri Apr 10, 2009 07:03 Post subject: Необходим скрипт для смены значка папки одним кликом |
|
|
Уважаемые СКРИПТОТОТАЛЬЩИКИ подскажите выход из такой ситуации.
Задача: В ТЕКУЩЕЙ ПАНЕЛИ НЕОБХОДИМО КАЖДОЙ ВЫДЕЛЕННОЙ ПАПКЕ
В ОТДЕЛЬНОСТИ ПРИКРЕПИТЬ ИНДИВИДУАЛЬНЫЙ ЗНАЧОК, НАХОДЯЩИЙСЯ
КАЖДЫЙ В СВОЕЙ ПАПКЕ (значок exe или ico файла).
Виртуальный пример: есть папка программы PROG,
в ней соответственно есть запускающий PROGGO.EXE ,
мне нужно, чтобы папка PROG светилась значком PROGGO.EXE,
таких папок как описано выше немало, а вручную всё это делать надоело
Вручную, кто не знает, приходится делать много телодвижений:
1. Выделить полный путь к PROGGO.EXE,
2. Выйти в родительский коталог (т.е поставить курсор на папку PROG)
3. Нажать правой кнопкой мыши
4. Вызвать команду"Свойство"
5. Переключиться в "Настройка"
6. Нажать "Сменить значок"
7. Ввести скопированный путь к PROGGO.EXE
8,9,10 Несколько раз нажать на OK, а если таких папок 100...
Кто-то может спросить: А какая ЦЕЛЬ:
1 Эстетическая - если на папке значок - это ускоряет визуальный поиск
2.Мне приходится "сканировать" много папок...тысячи...с разными данными,
чтобы знать в какую папку мне больше заходить не надо (т.е уже просмотренную)
лучшим для себя методом я нашёл следующее:
во все папки предварительно копируется файл нужного значка.ico
и при окончании работы с папкой я её помечаю - вешая на неё значок...
И красиво, и понятно, и виден наглядный итог работы.
В конце дня накапливается много готовых папок - вот бы одной кнопкой,
одним кликом повесить все иконки на эти папки
...много текста, извините, наболело! С уважением Андрей А А
! | CaptainFlint: | Нарушение п. 9 правил. Со скриптами в "Автоматизацию". | |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Вахмурка
![](images/avatars/3414476054480a72d7cff1.gif)
Joined: 27 Dec 2004 Posts: 2584 Location: Большая деревня Москва
|
(Separately) Posted: Fri Apr 10, 2009 13:52 Post subject: |
|
|
Вообще-то, написать скрипт можно. Если я правильно помню, при выполнении указанных действий в директории появляется файл desktop.ini с путем к иконке. То есть скрипт будет писать и копировать такие файлы. Это несложно. Однако:
1) Попробуй поиграться с комментариями. Например, создаешь цветовую схему "Если комментарий к директории содержит слово "читал", она красится зеленым". А для одноврменного комментирования многих директорий можно использовать мой скрипт.
2) Того же результат можно добиться, изменяя атрибуты директории, скажем "Архивный". Директории с разными атрибутами можно красить по разному.
3) Посмотри сюда - вдруг поможет? _________________ Сайт PowerPro+Total Commander
Скрипты PowerPro для Total Commander
* * *
«Не усматривайте злого умысла в том, что вполне объяснимо глупостью» (Р. Хэнлон) |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
mrmerak
![](images/avatars/166399537251bf188057e53.jpg)
Joined: 20 Aug 2007 Posts: 441
|
(Separately) Posted: Fri Apr 10, 2009 16:27 Post subject: Re: Необходим скрипт для смены значка папки одним кликом |
|
|
Andrey_A wrote: | В ТЕКУЩЕЙ ПАНЕЛИ НЕОБХОДИМО КАЖДОЙ ВЫДЕЛЕННОЙ ПАПКЕ
В ОТДЕЛЬНОСТИ ПРИКРЕПИТЬ ИНДИВИДУАЛЬНЫЙ ЗНАЧОК, НАХОДЯЩИЙСЯ
КАЖДЫЙ В СВОЕЙ ПАПКЕ (значок exe или ico файла).
|
+1
Тоже надо. _________________ TC 9.51 | Win10 1903 |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
DrShark
Joined: 21 Oct 2006 Posts: 911 Location: Kyiv, Ukraine
|
(Separately) Posted: Fri Apr 10, 2009 16:34 Post subject: |
|
|
Простой скрипт, который присваивает иконку файла под курсором папке в противоположной панели.
Кнопка, подобная этой:
Code: | TOTALCMD#BAR#DATA
"D:\Program Files\totalcmd\Utils\TargetLNK\TargetICON.vbs"
"%T" ""%P%N""
D:\WINDOWS\System32\WScript.exe
TargetICON
D:\Program Files\totalcmd\Utils\TargetLNK\
-1
|
Собственно, скрипт:
Code: | Dim Args, WSHShell, fso, f
Set Args = WScript.Arguments
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Args(0))
f.Attributes = f.Attributes Or 1
Set f = fso.OpenTextFile(Args(0) + "\Desktop.ini", 2, True)
f.Write "[.ShellClassInfo]" + vbCrLf
f.Write "IconFile=" & Args(1) + vbCrLf
f.Write "IconIndex=0" + vbCrLf
f.Close
Set f = fso.GetFile(Args(0) + "\desktop.ini")
f.Attributes = f.Attributes Or 2
f.Attributes = f.Attributes Or 4 |
Уже меньше кликов ![Smile](images/smiles/icon_smile.gif) |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Batya
![](images/avatars/14956831694439fb6161cdd.gif)
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Sat Apr 11, 2009 00:28 Post subject: |
|
|
Тема обсуждалась - Свои иконки у папок. Там же приведены скрипты, а также различное ПО для использования по теме. _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Andrey_A
![](images/avatars/463408325511d535a14d3c.gif)
Joined: 10 Apr 2009 Posts: 394 Location: Сочи
|
(Separately) Posted: Tue Apr 14, 2009 07:41 Post subject: Групповое назначение папкам значков |
|
|
Спасибо за подсказку ввиде скрипта, но к сожалению это не решает
вопрос группового назначения иконок группе папок. Я не думаю, что очень трудно дописать работающий скрипт, где
1. Есть вхождение в папку
2. Поиск в папке ico или exe файла
3. Запоминание адреса в буфер найденного
4. Выход обратно на родительскую папку
5. Назначение ей значка
6. Переход к следующей папке
7. И цикл повторяется
Я последовательность понимаю, но скрипты писать ещё не научился |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Batya
![](images/avatars/14956831694439fb6161cdd.gif)
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Tue Apr 14, 2009 14:17 Post subject: |
|
|
Andrey_A wrote: | 2. Поиск в папке ico или exe файла |
По какому принципу автоматизировать этот пункт?
Я не умею искать иконки. Единственный вариант - тупо брать первый попавшийся exe-шник. Так устроит? _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Andrey_A
![](images/avatars/463408325511d535a14d3c.gif)
Joined: 10 Apr 2009 Posts: 394 Location: Сочи
|
(Separately) Posted: Wed Apr 15, 2009 00:12 Post subject: Групповое присвоение значков |
|
|
Первый попавшийся Exeшник в самый раз!
Заранее спасибо за помощь |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Tol!k
![](images/avatars/669041092480e51f29c817.jpg)
Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Wed Apr 15, 2009 06:41 Post subject: Re: Групповое присвоение значков |
|
|
Andrey_A wrote: | Первый попавшийся Exeшник в самый раз! | Если не найден Exeшник с именем, похожим на имя папки; и Первый попавшийся — не unins*.exe и не unwise.exe |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Batya
![](images/avatars/14956831694439fb6161cdd.gif)
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Thu Apr 16, 2009 19:01 Post subject: |
|
|
Tol!k wrote: | Если не найден Exeшник с именем, похожим на имя папки; и Первый попавшийся — не unins*.exe и не unwise.exe |
ОК.
Сделал в указанной выше теме - Свои иконки у папок. _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Чиполлино
![](images/avatars/964702198615c6b5dbd54b.jpg)
Joined: 23 Dec 2017 Posts: 62 Location: Орёл
|
(Separately) Posted: Tue Aug 15, 2023 04:12 Post subject: |
|
|
Возможно ли изменить значок одновременно у нескольких папок, на дин из значков из %SystemRoot%\System32\SHELL32.dll?. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
|