主题：[分享] 我的资源管理器(9月17日更新）

抢沙发

顺便说一下，看你前一贴 快捷方式，感觉没必要封装成Dll   直接写内部函数得了

Dim 目标文件全路径 As String = ""               '有后缀
Dim 目标文件夹径 As String = ""

Dim 快捷方式名称 As String = "试试.lnk"            '有后缀
Dim 快捷方式图标路径 As String = "G:\Chart32.ico"   '有后缀

        Dim wsh As Object = CreateObject("WScript.Shell")      '新建对象
        Dim desk As String = wsh.SpecialFolders("Desktop")     '获取桌面路径，可以直接定义路径
        Dim lnk As Object = wsh.CreateShortcut(desk & "\" & 快捷方式名称)

        With lnk
            .Description = "俺来逛逛"                '鼠标停留时的说明
            .IconLocation = 快捷方式图标路径         '图片文件的路径,必须是有效路径,如用默认图标,请将此注释掉
            .TargetPath = 目标文件全路径             '目标文件全路径
            .WorkingDirectory = 目标文件夹径         '目标文件的文件夹路径
            .Save()                                  '保存快捷方式
        End With