C# と VB.NET の質問掲示板

> 1番の方法でお願いします

うーむ。提示した3種の中では、もっとも一番難易度が高い気も。(^^;
とりあえず、こんな感じとか。

-------------------------
Option Strict Off
Imports System.Runtime.InteropServices

<ComImport(), Guid("64AB4BB7-111E-11D1-8F79-00C04FC2FBE1")> _
Public Class ShellUIHelper
End Class

Module Module1

  Sub Main()
    Dim url As String = "http://www.google.co.jp/webhp?complete=1&hl=ja"
    Dim title As String = "サジェスト"

    Dim helper As Object = Nothing
    Try
      helper = New ShellUIHelper()

      MsgBox("お気に入りの整理")
      helper.ShowBrowserUI("OrganizeFavorites", 0)

      MsgBox("お気に入りの追加")
      helper.AddFavorite(url, CObj(title))
    Finally
      If helper IsNot Nothing AndAlso Marshal.IsComObject(helper) Then
        Marshal.ReleaseComObject(helper)
      End If
    End Try
  End Sub

End Module
-------------------------

でもって、取り出しについては……
  Dim Path As String = Environment.GetFolderPath(Environment.SpecialFolder.Favorites)
で示されるパスの内容を列挙して、ショートカットを調べるとか。


> ラベルか何かを追加してと検討違いな事を考えていました。
VB2005 で、ApplicationSettings のプロパティ連結機能を使えば、
コントロールの内容を自動セーブ/自動ロードさせる事が可能なので、
その方法でも不可能ではなかったりします。
http://www.microsoft.com/japan/msdn/vs05/vbasic/vbmysettings.aspx


> 3番のファイル入出力の方法について魔界の仮面弁士さんがお勧めの参照ページがありましたら教えて頂けませんか？

ファイル入出力の方法はいろいろありますが、たとえば、XmlSerializer や
BinaryFormatter を使うという方法があります。下記を参照してみてください。

[オブジェクトの内容をXMLファイルに保存、復元する]
http://dobon.net/vb/dotnet/file/xmlserializer.html

[オブジェクトをXMLでシリアライズ]
http://www.atmarkit.co.jp/fdotnet/easyxml/index/index.html

[XML シリアル化の概要]
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/cpguide/html/cpconintroducingxmlserialization.asp
http://msdn2.microsoft.com/ja-jp/library/182eeyhh.aspx

> 現在奮闘中です、とっても難しいです

標準のを利用するのは、(.NETからだと)面倒だって忠告したのに…。(^_^;

独自ブラウザなら、独自に管理した方がたぶん楽かと思いますよ。
データの形式等も自由に定義する事が出来る分、融通が利きますから。


> 何も変化が出ませんでした
>   Dim Path As String = Environment.GetFolderPath(Environment.SpecialFolder.Favorites)

パスを取得したら、それを利用するコードを書かなければなりません。

上記行によって、変数 Path に「お気に入り」仮想フォルダの物理ディレクトリの
パスが記されますので、あとはそこから、フォルダ列挙およびショートカットを
列挙するコードと、URLショートカット(*.url)の内容を取り出すコードを
自前で記述してやることになります。

そして、この *.url ファイルの内容を取り出すために、幾つか方法があります。

1. 自前で解析(中身は、iniファイル形式のテキストです)
　→マネージコードで書けますが、将来、管理形式が変更されると弱いです。
http://www.atmark.gr.jp/~s2000/r/rtl/InternetShortcut.html

2. IUniformResourceLocator インターフェイスを使う
　→正攻法です。そのかわり、.NET 向けに作成されたインターフェイスでは
　　ありませんので、呼び出しにはある程度の知識が必要になります。
http://msdn.microsoft.com/workshop/misc/shortcuts/reference/iuniformresourcelocator.asp

3. WshUrlShortcut オブジェクトを使う(COM の解放処理を忘れずに)
　→VBScript からも呼べるよう、レイトバインドでの呼び出しにも
　　対応しています。上記 2 種よりは少し使いやすいかも。
http://msdn.microsoft.com/library/ja/script56/html/wsobjwshurlshortcut.asp


参考までに、案1の実装例を書いておきます。

解説用コードという事で、エラー処理や、データの切り出し等は行わず、
単純にファイルの読み込みのみを行わせています。


Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, _
        ByVal e As EventArgs) Handles MyBase.Load

        ListBox1.Items.Clear()

        '「お気に入り」フォルダのパスを取得
        Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.Favorites)

        '拡張子 url のファイルを列挙し、それを ListBox に表示
        ListBox1.DataSource = My.Computer.FileSystem.GetFiles( _
            path, FileIO.SearchOption.SearchAllSubDirectories, "*.url")
    End Sub


    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, _
        ByVal e As EventArgs) Handles ListBox1.SelectedIndexChanged

        If ListBox1.SelectedIndex = -1 Then
            Label1.Text = ""
        Else
            'ListBox の内容を取り出す
            Dim path As String = ListBox1.SelectedItem.ToString()

            'url ファイルの内容を Label1 に出力
            Label1.Text = My.Computer.FileSystem.ReadAllText( _
                path, System.Text.Encoding.Default)
        End If
    End Sub

End Class