Question

VBS如何修改桌面文件夹的图标 或者用BAT也行

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\千千静听.lnk")
oShellLink.IconLocation = "D:\千千静听.ico, 0"
oShellLink.Save
这是修改桌面程序快捷方式图标的VBS 但我想修改桌面文件夹的图标 该怎么写呢？
这不是我要的效果，不能直接修改启动VBS修改文件夹图标么？如果创建一个文件夹的快捷方式，再修改其图标，这样能不能实现呢？

Answer 1

修改文件夹图标可以修改其下以藏文件“desktop.ini”文件的内容来完成。我给出的这个代码是将拖放到本vbs文件的文件夹修改为=%SystemRoot%\system32\SHELL32.dll这个文件里面的第100号文件，你可以手动修改这个路径，如果指定的是一个ico文件那么序号就是0。

'══代══码══开══始════
set arg=WScript.Arguments
if arg.count<1 then
msgbox "请将文件夹拖放到本vbs上，不要直接启动！"
wscript.quit
end if
msgbox arg(0)
set fso=CreateObject("Scripting.FileSystemObject")
path=fso.getfolder(arg(0)).path
if fso.fileexists(path&"\Desktop.ini") then
fso.getfile(path&"\Desktop.ini").Attributes=0
end if
set fw=fso.createtextfile(path&"\Desktop.ini",2)
fw.writeline("[.ShellClassInfo]")
fw.writeline("IconFile=%SystemRoot%\system32\SHELL32.dll")
fw.writeline("IconIndex=100")
fw.close
fso.getfile(path&"\Desktop.ini").Attributes=7
'══代══码══结══束════

运行本代码后刷新即可看到效果。

补充回答：
你好，你说的那个也可以实现，但是你没有提供需要创建的文件夹是什么名字。
在哪里创建文件夹？在哪里他的快捷方式？文件名是什么？文件图标在哪里？