我正在寻找创建批处理Windows脚本文件来定义文件夹的图标位置,在desktop.ini文件夹中
基本上,我的媒体驱动器中有超过400个视频。每个都有一个图标文件,其名称与文件夹相同,例如:
E:\ Movies \ Movie(2010) - >文件夹名称 E:\ Movies \ Movie(2010).ico - >图标文件名
最初我右键单击每个文件夹并自定义图标,但最近我更换了PC并将硬盘连接到新PC并且所有文件夹图标都变为默认值。如果有可能的解决方案,我真的很感激。
PS上次我做任何类型的编码都是MS-DOS批处理文件的时代:)
答案 0 :(得分:2)
将此文件放入vbs文件并在cmd中运行,参数为文件夹所在的文件夹
EditDesktopIni(Wscript.Arguments(0))
Sub EditDesktopIni(foldpath)
Dim fso, inifile, icondata, file, fold, subfold, item
Const ForReading = 1, ForWriting = 2
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Set fso = CreateObject("Scripting.FileSystemObject")
Set fold = fso.GetFolder(foldpath)
Set subfold = fold.SubFolders
For Each item In subfold
If (fso.FileExists(foldpath + "\" + item.Name + "\desktop.ini")) Then 'If desktop.ini exists, delete it
fso.DeleteFile foldpath + "\" + item.Name + "\desktop.ini", True
End If
Set file = fso.OpenTextFile(foldpath + "\" + item.Name + "\desktop.ini", ForWriting, True, TristateUseDefault)
file.WriteLine "[.ShellClassInfo]"
file.WriteLine "IconResource=" & foldpath & "\" & item.name & ".ico" & ",0"
file.WriteLine "[ViewState]"
file.WriteLine "Mode="
file.WriteLine "Vid="
file.WriteLine "FolderType=Generic"
file.WriteLine ""
fso.GetFile(foldpath + "\" + item.Name + "\desktop.ini").Attributes = 6
Next
End Sub
注意:
编辑:这个可以立即工作(并且代码更好):
EditDesktopIni(Wscript.Arguments(0))
Sub EditDesktopIni(foldpath)
Dim fso, inifile, icondata, file, fold, subfold, item, subfoldpath
Const ForReading = 1, ForWriting = 2
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Set fso = CreateObject("Scripting.FileSystemObject")
Set fold = fso.GetFolder(foldpath)
Set subfold = fold.SubFolders
For Each item In subfold
inifile = foldpath + "\" + item.Name + "\desktop.ini"
subfoldpath = foldpath & "\" & item.name
If (fso.FileExists(inifile)) Then 'If desktop.ini exists, delete it
fso.DeleteFile inifile, True
End If
Set file = fso.OpenTextFile(inifile, ForWriting, True, TristateUseDefault)
file.WriteLine "[.ShellClassInfo]"
file.WriteLine "IconResource=" & subfoldpath & ".ico" & ",0"
file.WriteLine "[ViewState]"
file.WriteLine "Mode="
file.WriteLine "Vid="
file.WriteLine "FolderType=Generic"
file.WriteLine ""
fso.GetFile(inifile).Attributes = 6
item.Attributes = 0
item.Attributes = 4 'Set the folder to system to refresh the icon
Next
End Sub