![在 Windows 7 中将第一张图片设置为文件夹预览](https://linux22.com/image/1234706/%E5%9C%A8%20Windows%207%20%E4%B8%AD%E5%B0%86%E7%AC%AC%E4%B8%80%E5%BC%A0%E5%9B%BE%E7%89%87%E8%AE%BE%E7%BD%AE%E4%B8%BA%E6%96%87%E4%BB%B6%E5%A4%B9%E9%A2%84%E8%A7%88.png)
我正在尝试自定义图像文件夹在 Win7 资源管理器中的显示方式,但似乎无法控制它。
有没有办法强制它始终选择文件夹中的第一张图片作为预览图片?Explorer 具有完美的自然排序顺序。我不明白为什么它会通过选择半随机图片来搞乱它。
答案1
Windows 将会选择一张照片,或者使用名为 folder.jpg 的照片。
如果您想使用第一个文件夹,您必须将第一张照片复制到名为 folder.jpg 的文件中。
我不知道是否有任何程序或扩展功能可以改变这种行为。我也想知道
更新:
我已经使用这个旧脚本很多年了,我用它来搜索和替换目录中的字符串。您可以轻松修改它以找到第一个 jpg 并将其复制到文件夹中。可能有更好的方法可以做到这一点,但希望这能让您快速入门。
创建文件夹dotjpg
Dim MyFile
MyFiles = GetFileArray(".")
For Each MyFile In MyFiles
' psuedo logic here
' get a list of all files in sub folder
' find the first jpg, and copy the file to folder.jpg
Next
MsgBox "Done..."
function GetFileArray(ByVal vPath)
'Get our objects...
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.Getfolder(vPath)
Set Files = Folder.SubFolders
'Resize the local array
'Arrays are 0 based but Files collection is 1 based.
if Files.count = 0 then
GetFileArray = array()
Exit Function
Else
Index = 0
Redim FileList(Files.Count-1)
For Each File In Files
set FileList(Index) = File
Index = Index + 1
Next
GetFileArray = FileList
End If
'Always good practice to explicitly release objects...
Set FSO = Nothing
Set Folder = Nothing
Set Files = Nothing
End function
答案2
此步骤必须手动应用于每个文件夹,但对我来说有效。
脚步:
右键单击文件夹并选择属性
在属性窗口中,选择自定义选项卡
在“文件夹图片”下单击“选择文件...”并选择图像
在“文件夹图标”下单击“更改图标...”,单击“恢复默认值”,然后单击“应用”和“确定”。
就是这样。它应该可以工作了。
来源:http://www.sevenforums.com/customization/17237-how-apply-image-folder.html