vb.net建立ie快捷方式
我是用vb.net制作的浏览器．在＂添加收藏夹＂中要创建快捷方式，我现在已经可以创建，但是双击快捷方式只能调用ie.exe，却不能链接到相应的网址．我在创建时不知道把url赋给哪个属性．
Public Function CreateLnkFile(ByVal FilePath As String, Optional ByVal LnkFileTitle As String = "", Optional ByVal ToPath As String = "", Optional ByVal IconIndex As Integer = 0, Optional ByVal url As String = "") As Integer
On Error Resume Next
Dim intDoIt As Integer, WSHShell As Object, MyShortcut As Object, DesktopPath As String
Dim FileName As String
Dim FileDir As String
'文件所执行的路径（有些程序可以忽略，但注意这可能使用程序不能正常运行）
WSHShell = CreateObject("WScript.Shell")
FileName = Dir(FilePath)
If FileName = "" And Mid(FilePath, FilePath.Length - 1, FilePath.Length) <> "\" Then CreateLnkFile = 0 : Exit Function
'`如果文件不存在就返回0并退出函数
If LnkFileTitle = "" Then LnkFileTitle = FileName
'`如果没有指定快捷方式的名字就用原来的文件名
If ToPath = "" Then
'`如果没有指定目标的路径
ToPath = WSHShell.SpecialFolders("Desktop")
' `就用桌面为目标的路径
End If
If Mid(ToPath, ToPath.Length - 1, ToPath.Length) <> "\" Then ToPath = ToPath & "\"
FileDir = Mid(FilePath, 1, InStrRev(FilePath, "\", , vbTextCompare) - 1)
MyShortcut = WSHShell.CreateShortcut(ToPath & LnkFileTitle & ".lnk")
MyShortcut.Type = "[InternetShortcut]"
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings(FilePath)
'MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings(LnkFileTitle)
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings(FileDir)
MyShortcut.WindowStyle = 1
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings(FilePath & " , " & IconIndex)
'以下三种方法我也都试过了
MyShortcut.BASEURL = "http://www.baidu.com/"
MyShortcut.Sourcepath = "http://www.baidu.com/"
MyShortcut.URL = "http://www.baidu.com/"
MyShortcut.Save()
CreateLnkFile = 1
'If Err() Then
' CreateLnkFile = 0
'End If
End Function
End Class
问题点数：0、回复次数：1Top
1 楼dengxw（威威）回复于 2005-06-04 22:14:52 得分 0
如果说你双击快捷方式是用IE打开的话~
并不是你的URL有问题~
而是你要在你的程序里给一个双击事件~
或者改了IE快捷方式的打开方式~
改为你自己的那个程序~Top
