Dim Body As HtmlElement = BrowserMain.Document.Body 'BrowserMain(WebBrowser)からソースを取得 Dim Images As HtmlElementCollection = Body.GetElementsByTagName("img") 'Img要素を取得 For Each Img As HtmlElement In Images '取得したImg要素を1つずつ繰り返す。 Dim src As String = Img.GetAttribute("src") 'src属性(アドレス)を代入 Dim ext As String = Path.GetExtension(src) '変数srcから拡張子だけを取得して代入 If src.Length = 0 Then '文字数が0のとき(アドレスがないとき) lstFile.Items.Remove(src) 'リストからアイテムを削除 Else lstFile.Items.Add(src) '文字があれば追加 End If '別のリスト(lstExt)に変数extの値を追加します。 If Not lstExt.Items.Contains(ext) Then '別のリストに拡張子がないなら追加 lstExt.Items.Add(ext, True) End If Next