level 2
![[泪]](/static/emoticons/u6cea.png)
process.start应该可以吧
2016年10月12日 13点10分
level 10
''' <summary>获取快捷方式的目标地址</summary>
Public Function GetShortcutTarget(ByVal filePath As String) As String
Static wsh As Object = CreateObject("WScript.Shell")
Dim ret As String = Nothing
Try
Dim lnk As Object = wsh.CreateShortcut(filePath)
ret = lnk.TargetPath
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return ret
End Function
2016年10月15日 06点10分
4
Public Function GetShortcutTarget(ByVal filePath As String) As String
Static wsh As Object = CreateObject("WScript.Shell")
Dim ret As String = Nothing
Try
Dim lnk As Object = wsh.CreateShortcut(filePath)
ret = lnk.TargetPath
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return ret
End Function
