修改文件夹外观软件

.如果真 (信息框 (“要写入配置文件吗？”, 1, ) ＝ #取消钮)
返回 ()
.如果真结束
目录 ＝ 删首尾空 (目录框.内容)
.如果真 (取文本右边 (目录, 1) ＝ “\”)
目录 ＝ 取文本左边 (目录, 取文本长度 (目录) － 1)
.如果真结束
.如果真 (目录 ＝ “”)
信息框 (“目录框不可为空”, 0, )
返回 ()
.如果真结束
.如果真 (图标文件名 ≠ “” 且 图标索引 ＜ 1 且 图标总数 ＞ 0)
信息框 (“请选择图标”, 0, )
返回 ()
.如果真结束
.如果真 (文件是否存在 (目录 ＋ “\desktop.ini”) ＝ 假)
写到文件 (目录 ＋ “\desktop.ini”, 到字节集 (“”))
置文件属性 (目录 ＋ “\desktop.ini”, #隐藏文件 ＋ #系统文件)
.如果真结束
.如果真 (图标文件名框.内容 ≠ “” 且 图标索引 ＞ 0)
.如果 (寻找文本 (图标文件名, 目录, , 假) ≠ -1)
路径 ＝ 取文本右边 (图标文件名, 取文本长度 (图标文件名) － 寻找文本 (图标文件名, 目录, , 假) － 取文本长度 (目录))
.否则
路径 ＝ 图标文件名
.如果结束
写配置项 (目录 ＋ “\desktop.ini”, “.ShellClassInfo”, “IconResource”, 路径 ＋ “,” ＋ 到文本 (图标索引 － 1))
写配置项 (目录 ＋ “\desktop.ini”, “.ShellClassInfo”, “IconFile”, 路径)
写配置项 (目录 ＋ “\desktop.ini”, “.ShellClassInfo”, “IconIndex”, 到文本 (图标索引 － 1))