各位大神，如何创建和删除文件夹快捷方式？

1全职

各位大神，如何创建和删除文件夹快捷方式？

CBWSY

Sub CrtPathShort() '创建文件夹快件方式

    With CreateObject("Wscript.shell").createshortcut("C:\Users\caibing\OneDrive\Desktop\hm\TEST.lnk")  '指定诀捷方式名称
   
       .TargetPath = "C:\Users\caibing\OneDrive\Desktop\HM\"  '指定档案的路径
       .IconLocation = "F:\NET9\CX\Caibing.ico" '设定图标
       .Save
    End With
End Sub

Sub DelPathShort() '删除文件夹快件方式
    Kill "C:\Users\caibing\OneDrive\Desktop\hm\TEST.lnk"
End Sub

1全职

CBWSY 发表于 2024-3-27 16:51
Sub CrtPathShort() '创建文件夹快件方式

    With CreateObject("Wscript.shell").createshortcut("C:% ...

大神，引用无效

CBWSY

（“C:\Users\caibing\OneDrive\Desktop\hm\TEST.lnk")  '指定诀捷方式名称 ,　要改为你自己机子上的路径呀

CBWSY

createshortcut("C:\Users\caibing\OneDrive\Desktop\hm\TEST.lnk")  '指定快捷方式名称 ，这里设定快捷方式的名称 及存放的路径（如果创建的快捷方式存放在D盘根目录下 就设定为 Ｄ:\TEST.lnk ,TEST.lnk 是快捷方式文件名

CBWSY

.TargetPath = "C:\Users\caibing\OneDrive\Desktop\HM\"  '指定档案的路径 ，是快捷方式需要指向的文件夹