Что нового

[Автоматизация] Как поменять иконку папки с помощью скрипта !

COKOL

Новичок
Сообщения
8
Репутация
0
Всем доброго времени суток! Как с помощью скрипта изменить иконку папки? в заранее спасибо! причём папка находится на рабочем столе,а картинки в папке со скриптом!
 

VladUs

Скриптер
Сообщения
621
Репутация
181
Вот описание microsoft по изменению значка папки http://msdn.microsoft.com/en-us/library/cc144102(v=vs.85).aspx
Если в кратце, то необходимо создать в нужной папке файл "desktop.ini" (если он есть то модифицировать). Для этого в Autoit есть функция "IniWrite()"
В нем прописать параметры

Код:
[.ShellClassInfo]
IconFile=favicon0.ico
IconIndex=0

где параметр
IconFile - путь к файлу значка (также значки можно присваиваить и из .exe файлов если они их содержат)
IconIndex - номер значка (номер начинается с 0)
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
COKOL [?]
Как с помощью скрипта изменить иконку папки?
Код:
$sDir_Path = "C:\TestDir"

IniWrite($sDir_Path & "\Desktop.ini", ".ShellClassInfo", "IconFile", @ScriptDir & "\Icon.ico")
IniWrite($sDir_Path & "\Desktop.ini", ".ShellClassInfo", "IconIndex", 0)
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
COKOL,
Или так для той папки, в которой лежит скрипт:
Код:
If FileExists(@ScriptDir & '\2.ico') Then
    If FileExists(@ScriptDir & '\Desktop.ini') Then
        FileDelete(@ScriptDir & '\Desktop.ini')
    EndIf
    IniWrite(@ScriptDir & '\Desktop.ini', '.ShellClassInfo', 'IconFile', @ScriptDir & '\2.ico')
    IniWrite(@ScriptDir & '\Desktop.ini', '.ShellClassInfo', 'IconIndex', 0)
	IniWrite(@ScriptDir & '\Desktop.ini', '.ShellClassInfo', 'InfoTip', 'Иконка папки заменена на 2.ico')
    FileSetAttrib(@ScriptDir, '+R')
	FileSetAttrib(@ScriptDir & '\Desktop.ini', '+H')
EndIf
 
Верх