• 1

在CodeLib 8.7版中加入URL網址管理功能, 當中也支援了IE Favorites匯入功能
透過底下方式能夠快速簡單取得"我的最愛"與.url檔案相關內容

  xxx.url 檔案內容
  [DEFAULT]
    BASEURL=http://support.microsoft.com/ kbid=313803
    [InternetShortcut]
    URL=http://support.microsoft.com/ kbid=313803
    Modified=D02A6D42DE6FC401BB
    IconFile=http://support.microsoft.com/favicon.ico
    IconIndex=1
   
    取得 ini結構檔內容
    Declare Auto Function GetPrivateProfileString Lib "kernel32" (ByVal lpAppName As String, _
     ByVal lpKeyName As String, ByVal lpDefault As String, _
     ByVal lpReturnedString As System.Text.StringBuilder, ByVal nSize As Integer, _
     ByVal lpFileName As String) As Integer
     
    取得 IE Favorites檔案與目錄
    Dim sourceDir As DirectoryInfo = New DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.Favorites))
    Dim Desc As New System.text.StringBuilder(512)
    For Each file As FileInfo In sourceDir.GetFiles()
        If file.Extension = ".url" Then  '取得Favorites *.url檔案
            '透過API取得 xx.url檔案中 URL所在位置的內容
            GetPrivateProfileString("InternetShortcut", "URL", "", Desc, Desc.Capacity, file.FullName)
        End If
    Next
    For Each dir As DirectoryInfo In sourceDir.GetDirectories()
        '取得Favorites分類的目錄
    Next