Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Необходим скрипт для смены значка папки одним кликом

 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Andrey_A



Joined: 10 Apr 2009
Posts: 394
Location: Сочи

Post (Separately) Posted: Fri Apr 10, 2009 07:03    Post subject: Необходим скрипт для смены значка папки одним кликом Reply with quote

Уважаемые СКРИПТОТОТАЛЬЩИКИ подскажите выход из такой ситуации.
Задача: В ТЕКУЩЕЙ ПАНЕЛИ НЕОБХОДИМО КАЖДОЙ ВЫДЕЛЕННОЙ ПАПКЕ
В ОТДЕЛЬНОСТИ ПРИКРЕПИТЬ ИНДИВИДУАЛЬНЫЙ ЗНАЧОК, НАХОДЯЩИЙСЯ
КАЖДЫЙ В СВОЕЙ ПАПКЕ (значок 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
View user's profile Send private message
Вахмурка



Joined: 27 Dec 2004
Posts: 2584
Location: Большая деревня Москва

Post (Separately) Posted: Fri Apr 10, 2009 13:52    Post subject: Reply with quote

Вообще-то, написать скрипт можно. Если я правильно помню, при выполнении указанных действий в директории появляется файл desktop.ini с путем к иконке. То есть скрипт будет писать и копировать такие файлы. Это несложно. Однако:
1) Попробуй поиграться с комментариями. Например, создаешь цветовую схему "Если комментарий к директории содержит слово "читал", она красится зеленым". А для одноврменного комментирования многих директорий можно использовать мой скрипт.
2) Того же результат можно добиться, изменяя атрибуты директории, скажем "Архивный". Директории с разными атрибутами можно красить по разному.
3) Посмотри сюда - вдруг поможет?
_________________
Сайт PowerPro+Total Commander
Скрипты PowerPro для Total Commander
* * *
«Не усматривайте злого умысла в том, что вполне объяснимо глупостью» (Р. Хэнлон)
Back to top
View user's profile Send private message
mrmerak



Joined: 20 Aug 2007
Posts: 441

Post (Separately) Posted: Fri Apr 10, 2009 16:27    Post subject: Re: Необходим скрипт для смены значка папки одним кликом Reply with quote

Andrey_A wrote:
В ТЕКУЩЕЙ ПАНЕЛИ НЕОБХОДИМО КАЖДОЙ ВЫДЕЛЕННОЙ ПАПКЕ
В ОТДЕЛЬНОСТИ ПРИКРЕПИТЬ ИНДИВИДУАЛЬНЫЙ ЗНАЧОК, НАХОДЯЩИЙСЯ
КАЖДЫЙ В СВОЕЙ ПАПКЕ (значок exe или ico файла).

+1
Тоже надо.
_________________
TC 9.51 | Win10 1903
Back to top
View user's profile Send private message
DrShark



Joined: 21 Oct 2006
Posts: 911
Location: Kyiv, Ukraine

Post (Separately) Posted: Fri Apr 10, 2009 16:34    Post subject: Reply with quote

Простой скрипт, который присваивает иконку файла под курсором папке в противоположной панели.
Кнопка, подобная этой:
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
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Sat Apr 11, 2009 00:28    Post subject: Reply with quote

Тема обсуждалась - Свои иконки у папок. Там же приведены скрипты, а также различное ПО для использования по теме.
_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
Andrey_A



Joined: 10 Apr 2009
Posts: 394
Location: Сочи

Post (Separately) Posted: Tue Apr 14, 2009 07:41    Post subject: Групповое назначение папкам значков Reply with quote

Спасибо за подсказку ввиде скрипта, но к сожалению это не решает
вопрос группового назначения иконок группе папок. Я не думаю, что очень трудно дописать работающий скрипт, где
1. Есть вхождение в папку
2. Поиск в папке ico или exe файла
3. Запоминание адреса в буфер найденного
4. Выход обратно на родительскую папку
5. Назначение ей значка
6. Переход к следующей папке
7. И цикл повторяется
Я последовательность понимаю, но скрипты писать ещё не научился
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Tue Apr 14, 2009 14:17    Post subject: Reply with quote

Andrey_A wrote:
2. Поиск в папке ico или exe файла

По какому принципу автоматизировать этот пункт?
Я не умею искать иконки. Единственный вариант - тупо брать первый попавшийся exe-шник. Так устроит?
_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
Andrey_A



Joined: 10 Apr 2009
Posts: 394
Location: Сочи

Post (Separately) Posted: Wed Apr 15, 2009 00:12    Post subject: Групповое присвоение значков Reply with quote

Первый попавшийся Exeшник в самый раз!
Заранее спасибо за помощь
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Wed Apr 15, 2009 06:41    Post subject: Re: Групповое присвоение значков Reply with quote

Andrey_A wrote:
Первый попавшийся Exeшник в самый раз!
Если не найден Exeшник с именем, похожим на имя папки; и Первый попавшийся — не unins*.exe и не unwise.exe
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Thu Apr 16, 2009 19:01    Post subject: Reply with quote

Tol!k wrote:
Если не найден Exeшник с именем, похожим на имя папки; и Первый попавшийся — не unins*.exe и не unwise.exe

ОК.
Сделал в указанной выше теме - Свои иконки у папок.
_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
Чиполлино



Joined: 23 Dec 2017
Posts: 62
Location: Орёл

Post (Separately) Posted: Tue Aug 15, 2023 04:12    Post subject: Reply with quote

Возможно ли изменить значок одновременно у нескольких папок, на дин из значков из %SystemRoot%\System32\SHELL32.dll?.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group