16,718
社区成员
发帖
与我相关
我的任务
分享Imports System.IO
Public Class Favorite
Public FavoritesCollection As WebFavoriteCollection
Public ReadOnly Property FavoritesFolder() As String
Get
Return Environment.GetFolderPath(Environment.SpecialFolder.Favorites)
End Get
End Property
Public Sub ScanFavorties(ByVal folderName As String)
If FavoritesCollection Is Nothing Then FavoritesCollection = New WebFavoriteCollection()
Dim objScanFolder As New DirectoryInfo(folderName)
Dim objFavoriteFile As FileInfo
For Each objFavoriteFile In objScanFolder.GetFiles
If String.Compare(objFavoriteFile.Extension, ".url", True) = 0 Then
Dim objWebFavorite As New WebFavorite()
objWebFavorite.Load(objFavoriteFile)
FavoritesCollection.Add(objWebFavorite)
End If
Next
End Sub
Public Sub ScanFavorites()
ScanFavorites(FavoritesFolder)
End Sub
End Class