DrShark
|
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 |
Уже меньше кликов |
|