VB2008写的--收藏夹查看程序，适合.net初学者研究(附源码)

Public Name As String '定义书签类属性--名称

2 Public Url As String '定义书签类属性--网址

3 Public Sub Load()Sub Load(ByVal filename As String) '书签类Load方法 参数表示书签文件名如:书签名.url

4Code

Public FavoritesCollection As WebFavoriteCollection

Public ReadOnly Property FavoritesFolder() As String

Get

Return Environment.GetFolderPath(Environment.SpecialFolder.Favorites) '返回系统收收藏夹存储的位置

End Get

End Property

Public Sub ScanFavorites()

ScanFavorites(FavoritesFolder)

End Sub

Public Sub ScanFavorites(ByVal folderName As String)

If FavoritesCollection Is Nothing Then

FavoritesCollection = New WebFavoriteCollection

End If

For Each strFile As String In My.Computer.FileSystem.GetFiles(folderName)

My.Computer.FileSystem.GetFiles(folderName)

If strFile.EndsWith(".url", True, Nothing) Then

Try

Using objWebFavorite As New WebFavorite '用Using确保系统资源及时回收

objWebFavorite.Load(strFile)

FavoritesCollection.Add(objWebFavorite)

End Using

Catch ExceptionErr As Exception

Throw New Exception(ExceptionErr.Message)

End Try

End If

Next

End Sub

有了以上三个类我们就可以在程序窗体中调用

下载源码：/Files/quejuwen/Favorites.rar

使用现有的三个类，我们还可以建立任务栏程序如：