Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
ファイル名からフルパスを取得
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=10327#CommentId21057
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
shu
 (社会人)
投稿日時
2011/7/9 22:35:10
こんな感じですかね。
Button1クリックでリストに設定していますが、ファイルからの読み込み部分は
文字列配列からの読み込みに置き換えてます。
Private Class clsItem
Public Property Title As String
Public Property FullPath As String
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim src = {"aaa,C:\temp\a.text", "bbb,D:\b.text", "ccc,E:\ddd.text", "dddd,C:\Temp\sub\b.text"}
Dim lst As New List(Of clsItem)
For Each line In src
Dim items = line.Split(","c)
Dim itm = New clsItem With {.Title = items(0), .FullPath = items(1)}
lst.Add(itm)
Next
ListBox1.DataSource = lst
ListBox1.DisplayMember = "Title"
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Dim itm = DirectCast(ListBox1.SelectedItem, clsItem)
Label1.Text = itm.Title
Label2.Text = itm.FullPath
End Sub