主题：[求助]有没有什么命令可以将拷贝文件后进行粘贴快捷方式的操作？

Dim wsh As Object = CreateObject("WScript.Shell")

Dim desk As String = wsh.SpecialFolders("Desktop")

Dim lnk As Object = wsh.CreateShortcut(desk & "\test.lnk")

With lnk

.Arguments = "/?" '传递参数

.Description = "描述"

.Ic '调用dll资源内的图标

.TargetPath = "D:\test.jpg"  '文件路径

.WorkingDirectory = Application.StartupPath '工作路径

.Save() '保存快捷方式

End With