vb.net 创建快捷方式

[why_aircraft]

windows 下的应用程序
想创建一个方法,把指定的网页或是文件创建一个快捷方式.

''' <summary>生成快捷联系方式</summary>
        ''' <param name="url">网址/他括文件名的文件路径</param> 
        ''' <param name="name">生成快捷连系方式的名字</param >
        ''' <param name="lujin">快捷方式存放的文件路径</param>
        Shared Sub kuai(ByVal name As String, ByVal qq As String, ByVal lujin As String)
            '这里面怎么写
        End Sub

我找了好久,只发现网址的快捷方式的文件结构比较简间,就用"蛮"办法写了一个,但是这样创建肯定不是真正的方法
所以求教大家,还有我这个只能创建网址的快捷方式,那文件的快捷方式如何创建？

''' <summary>生成快捷联系方式</summary>
        ''' <param name="url">网址</param> 
        ''' <param name="name">生成快捷连系方式的名字</param >
        ''' <param name="lujin">快捷方式存放的文件路径</param>
        Shared Sub kuai(ByVal name As String, ByVal url As String, ByVal lujin As String) '生成快捷联系图标
            Dim kuainame = lujin & "\" & name & ".url"
            Dim kuaitext As String = "[InternetShortcut]" & Chr(10) & "URL= url
            If File.Exists(kuainame) Then File.Delete(kuainame)'如果有此文件则删除
            File.AppendAllText(kuainame, kuaiqq, System.Text.Encoding.Default)
        End Sub

新人没什么分,多多包涵.

[daisy8675]

参考:http://www.xrss.cn/Dev/DotNet/2007112317767.Html

[why_aircraft]

那个东西看不懂,而且代码好像有问题.

[51Crack]

'文件的快捷方式看上面的网址中CreatLnkFile
'需引用Interop.IWshRuntimeLibrary.dll,自己找

[why_aircraft]

能人帮帮忙啊

[why_aircraft]

发现用解本语言生成快捷方便得多,自己改了一下,写了一个类,加了注释,帮忙看看

http://hi.baidu.com/why212/blog/item/bdf8b31f92611f0f304e15e2.html

[it_gz_xi]

路过来学习一下

[水如烟]

一个快捷方式类
http://blog.csdn.net/lzmtw/archive/2007/02/08/1505268.aspx

利用了WScript.Shell

[why_aircraft]

[Quote=引用 7 楼 lzmtw 的回复:]
一个快捷方式类
http://blog.csdn.net/lzmtw/archive/2007/02/08/1505268.aspx

利用了WScript.Shell
[/Quote]
高手就是高手,我也最后也用的是WScript.Shell
可是你写的类就是比我写的类要高明多了.
分给高手哈