谢谢版主,实现了。
我是vb.net写的
Dim shell As IWshRuntimeLibrary.WshShell = New IWshRuntimeLibrary.WshShellClass
Dim shortCut As IWshRuntimeLibrary.WshShortcut
Dim s As String = "F:\TEST\test.lnk"
shortCut = CType(shell.CreateShortcut(s), IWshRuntimeLibrary.WshShortcut)
shortCut.TargetPath = "D:\APS\v8kai.ini"
shortCut.Save()