خطای rss

[میلاد علوی]

با عرض سلام من کد زیر رو برای لود rss استفاده می کنم اما برای لود لینک خبر ها ارور میده چکار کنم
لطفا کمکم کنید

Set RSSss = CreateObject("msxml2.domdocument")
RSSss.async = False
RSSss.Load ("http://www.iribnews.ir/RSS/RSS_AllSiteNews.aspx")
Me.Refresh
Set myItem = RSSss.getElementsByTagName("item")
ListView1.ListItems.Clear
For i = 0 To myItem.Length - 1
ListView1.ListItems.Add i + 1, , myItem(i).getElementsByTagName("title").Item(0).FirstChild.nodeValue
ListView1.ListItems(i + 1).ListSubItems.Add 1, , myItem(i).getElementsByTagName("LINK").Item(1).FirstChild.nodeValue
ListView1.ListItems(i + 1).ListSubItems.Add 2, , myItem(i).getElementsByTagName("description").Item(0).FirstChild.nodeValue
ListView1.ListItems(i + 1).ListSubItems.Add 3, , myItem(i).getElementsByTagName("pubDate").Item(0).FirstChild.nodeValue
Next i

[YasserDivaR]

XmlActiveX رو دانلود کن

[میلاد علوی]

ممنون میشم اگر نمونه ای از طرز کار اونهم دارید برای راهنمایی من قرار بدید

[meys34]

فکر میکنم اینجاش رو اشتباه کردید:

ListView1.ListItems(i + 1).ListSubItems.Add 1, , myItem(i).getElementsByTagName( "LINK" ).Item(1).FirstChild.nodeValue
باید بشه :
ListView1.ListItems(i + 1).ListSubItems.Add 1, , myItem(i).getElementsByTagName( "LINK" ).Item(0).FirstChild.nodeValue

در هر حال من نتونستم با ListView کار کنم اگر مشکل حل نشد لطفا پروژه رو بفرستید...