Declare Function GetPrivateProfileString Lib "KERNEL32.DLL" Alias "GetPrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer 'お気に入りのURLを取得します。 Public Function GetURLs(ByVal AppName As String, ByVal KeyName As String, ByVal Defaults As String, ByVal FileName As String) As String() Dim ReStrings() As New List(Of String) Dim Folder As New IO.DirectoryInfo(SpecialFolder.Favorites & "\") For Each oFile As IO.FileInfo In Folder.GetFiles("*.url") Dim strResult As String = Space(255) Call GetPrivateProfileString("InternetShortcut", "URL", "about:取得できませんでした", strResult, Len(strResult), oFile.FullName) ReStrings.Add(Microsoft.VisualBasic.Left(strResult, InStr(strResult, Chr(0)) - 1)) Next Return ReStrings.ToArray End Function