VBS如何修改桌面文件夹的图标 或者用BAT也行
发布网友
发布时间：2022-04-24 05:04
共1个回答
热心网友
时间：2023-10-30 16:19
修改文件夹图标可以修改其下以藏文件“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
'══代══码══结══束════
运行本代码后刷新即可看到效果。
补充回答：
你好，你说的那个也可以实现，但是你没有提供需要创建的文件夹是什么名字。
在哪里创建文件夹？在哪里他的快捷方式？文件名是什么？文件图标在哪里？
热心网友
时间：2023-10-30 16:19
修改文件夹图标可以修改其下以藏文件“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
'══代══码══结══束════
运行本代码后刷新即可看到效果。
补充回答：
你好，你说的那个也可以实现，但是你没有提供需要创建的文件夹是什么名字。
在哪里创建文件夹？在哪里他的快捷方式？文件名是什么？文件图标在哪里？
热心网友
时间：2023-10-30 16:19
修改文件夹图标可以修改其下以藏文件“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
'══代══码══结══束════
运行本代码后刷新即可看到效果。
补充回答：
你好，你说的那个也可以实现，但是你没有提供需要创建的文件夹是什么名字。
在哪里创建文件夹？在哪里他的快捷方式？文件名是什么？文件图标在哪里？
