エクスプローラのフォルダ一覧を作るには？

解決

Franz 2007-09-19 13:26:15 No: 143916

VB2005をついに利用し始めました。OSはXPです。
過去の質問にある内容でしたが、[[解決]]しておりませんでした。
質問内容はほぼそのままです。
TreeViewコントロールを使いエクスプローラのようなフォルダ一覧を作成しようとしています。
同じくデスクトップをルートフォルダにしようとしています。

Form.Load イベント
    Dim strDeskTopPath As String
    Dim Node As TreeNode
    strDeskTopPath = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop)
    Node = New TreeNode(strDeskTopPath)
    tvFolders.Nodes.Add(Node)

TreeView.AfterSelect イベント
    Dim Folder As New System.IO.DirectoryInfo(ParentNode.FullPath & "\")
    Dim oFolder As System.IO.DirectoryInfo
    Dim Node As TreeNode
    For Each oFolder In Folder.GetDirectories
        Node = New TreeNode(oFolder.Name)
        ParentNode.Nodes.Add(Node)
    Next

うまく表示できますが、TreeViewのデスクトップにはフルパスが表示されます。
このフルパスを "デスクトップ" のみにしたいと思っております。
どなたかご教授お願いします。

Franz 2007-09-21 23:07:41 No: 143917

すいません。自己解決です。
しっかり理解しておりませんでした…（汗)。