نحوه باز کردن فایل xml

[skh1300]

سلام دوستان
من میخواستم نحوه آوردن اطلاعات از فایل xlm به ویژوال چیه مثلا یه نگاه به این کنید می خوام اطلاعات این xml را به یه لیست باکس انتقال دهم

http://barnamenevis.org/forum/attachment.php?attachmentid=46481&d=1270365038

[parselearn]

http://barnamenevis.org/forum/showthread.php?t=197467&highlight=rss

[skh1300]

میشه یه مثال بزاری
مطالب داخل این تاپیک خیلی خوب هسته و لی اگه یه مثال ساده هم بزاری ممنون میشم

[skh1300]

من طبق تاپیکی که گذاشته بودی رفتم اما فقط نوشته اول را نشون میده از این کد استفاده کردم من میخوام تمامش بیاد در لیست باکس


Private Sub Form_Load()
Set rss = CreateObject("msxml2.domdocument")
rss.async = False
rss.Load (App.Path & "\Aya.xml")
List1.Clear
Me.Refresh
Set myItem = rss.getElementsByTagName("Aya")

For I = 0 To myItem.length - 1
List1.AddItem myItem(I).getElementsByTagName("M1").Item(0).firstChild.nodeValue

Next I

End Sub

Private Sub List1_Click()
Text1.Text = List1.List(List1.ListIndex)
End Sub

[parselearn]

دوست عزيز من دقيقا با يك فايل xml لوكال كد رو امتحان كردم
و مشكلي نبود
اشكال از فايل xml شماست
سورس فيد يك وبسايت رو نگاه كنيد
و نمونه اون رو بنويسيد

[skh1300]

خیلی ممنون از کمکتون بلاخره تونستم درستش کنم