[已解决]AU3如何修改文件属性

yinbinly · 发表于 2011-1-8 22:59:29

本帖最后由 yinbinly 于 2011-1-11 00:09 编辑

桌面的文件夹，空白图标。如何通过AU3改成windows的蝴蝶

83265358 · 发表于 2011-1-9 01:19:08

在文件夹里面新建一个名为"Desktop"的INI文件
在Desktop.ini文件里写入下面三行代码就能实现
[.ShellClassInfo]
IconFile=%SystemRoot%\system32\SHELL32.dll
IconIndex=130

83265358 · 发表于 2011-1-9 02:50:48

Dim $Dirs = @ScriptDir & "\Desktop.ini"
IniWrite($Dirs, ".ShellClassInfo", "IconFile","%SystemRoot%\system32\SHELL32.dll")
IniWrite($Dirs, ".ShellClassInfo", "IconIndex","130")
FileSetAttrib($Dirs,"+sh")

yinbinly · 发表于 2011-1-9 19:19:11

回复 3# 83265358

文件是加入了，可是图标还是没变成蝴蝶。- -

83265358 · 发表于 2011-1-9 20:36:48

回复 4# yinbinly

不好意思，我自己测试了，这方法确实不行！

yinbinly · 发表于 2011-1-9 21:00:44

回复 5# 83265358

呵呵，我看着思路是对的啊，

lixiaolong · 发表于 2011-1-10 00:49:24

本帖最后由 lixiaolong 于 2011-1-10 00:55 编辑

回复 6# yinbinly

XP测试成功.

#include <File.au3>
Dim $SszDrive, $SszDir, $SszFName, $SszExt
Dim $Dirs = @DesktopDir & "\新建文件夹\Desktop.ini"
$SarrPath = _PathSplit($Dirs, $SszDrive, $SszDir, $SszFName, $SszExt)
IniWrite($Dirs, ".ShellClassInfo", "IconFile","%SystemRoot%\system32\SHELL32.dll")
IniWrite($Dirs, ".ShellClassInfo", "IconIndex","130")
FileSetAttrib($SszDir,"+s")
FileSetAttrib($Dirs,"+sh")

83265358 · 发表于 2011-1-10 10:21:07

回复 7# lixiaolong

代码有点复杂

83265358 · 发表于 2011-1-10 10:22:40

回复 6# yinbinly

原来是文件夹也要设置为系统属性才会显示图标的。

83265358 · 发表于 2011-1-10 15:33:38

回复 3# 83265358

最简单点的


Dim $Dirs, $Dirss
$Dirs = @WorkingDir
$Dirss = $Dirs & "\Desktop.ini"
IniWrite($Dirss, ".ShellClassInfo", "IconFile","%SystemRoot%\system32\SHELL32.dll")
IniWrite($Dirss, ".ShellClassInfo", "IconIndex","119")
FileSetAttrib($Dirs,"+s")
FileSetAttrib($Dirss,"+sh")

yinbinly · 发表于 2011-1-10 22:49:55

回复 7# lixiaolong

谢谢

yinbinly · 发表于 2011-1-10 22:50:16

回复 10# 83265358

太谢谢了，浪费您宝贵的时间了

		自动登录	找回密码
密码			加入

[AU3基础] [已解决]AU3如何修改文件属性

相关帖子