如何使用VB修改代码创建的文件夹在File Explorer中的显示图标

完全可以实现。My.Computer.FileSystem.CreateDirectory方法本身仅负责创建基础文件夹对象，Windows资源管理器的自定义文件夹图标不属于文件夹的标准文件系统属性，是通过文件夹内的desktop.ini隐藏系统配置文件实现的，你只需要在创建文件夹后额外生成对应配置即可。

• 调用My.Computer.FileSystem.CreateDirectory批量创建目标文件夹
• 在每个新建文件夹根目录生成desktop.ini文件，写入图标路径配置
• 将desktop.ini设置为「隐藏+系统」属性，避免用户误删
• 给目标文件夹添加「系统」属性，触发资源管理器读取自定义配置

Imports System.IO

Sub BatchCreateFoldersWithCustomIcon()
    ' 配置参数
    Dim basePath As String = "C:\你的目标根目录\"
    Dim folderCount As Integer = 10 ' 批量创建的文件夹数量
    Dim iconPath As String = "C:\你的图标路径\custom.ico" ' 支持ico/exe/dll格式的图标资源
    
    For i = 1 To folderCount
        ' 1. 创建文件夹
        Dim folderPath As String = Path.Combine(basePath, $"文件夹_{i}")
        Directory.CreateDirectory(folderPath)
        
        ' 2. 生成desktop.ini配置
        Dim iniPath As String = Path.Combine(folderPath, "desktop.ini")
        Dim iniContent As String = $"[.ShellClassInfo]
IconResource={iconPath},0" ' 后面的0是图标资源索引，exe/dll包含多个图标时修改对应序号即可
        File.WriteAllText(iniPath, iniContent)
        
        ' 3. 设置desktop.ini属性
        Dim iniFile As New FileInfo(iniPath)
        iniFile.Attributes = FileAttributes.Hidden Or FileAttributes.System Or FileAttributes.Archive
        
        ' 4. 设置文件夹属性
        Dim folder As New DirectoryInfo(folderPath)
        folder.Attributes = folder.Attributes Or FileAttributes.System
    Next
    
    ' 可选：触发资源管理器刷新
    SendKeys.Send("{F5}")
End Sub

• 图标路径如果使用相对路径，需要保证路径相对于对应文件夹的位置正确，文件夹移动后要同步修改配置，否则图标会失效
• 如果修改后图标没有立刻更新，手动按F5刷新资源管理器即可
• 如果要给不同文件夹设置不同图标，只需要在循环内修改iconPath变量的值即可

内容的提问来源于stack exchange，提问作者Ross from Brooklin