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

解決


Franz  2007-09-19 22: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-22 08:07:41  No: 143917

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加