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

帮助里提到的文件命令好像只能粘贴或移动文件。

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

还有个问题，有没有直接取文件名后缀的方法？