آدرس دهی به اجزاء Listbox

[loads]

سلام دوستان
چجوریمیتونم یه سری اسامی رو وارد listbox کنم و به هر کدومشون آدرس باز شدن یه سند word رو بدم مثلا با کلیک کردن اسم document1 از داخل listbox فایل word واقع در آدرس
c:\document.doc باز بشه

[saina2006]

Option Explicit

Dim document As New Shell

Private Sub Form_Load()

List1.AddItem "Document 1"

List1.AddItem "Document 2"

End Sub



Private Sub List1_Click()

Select Case List1.ListIndex = 1

Case 0

   document.Open "Address of document 1"

Case 1

   document.Open "Address of document 2"

End Select

End Sub

البته اول باید Microsoft shell control and Automatin را برای اجرای فایل به برنامه اضافه کنی

[loads]

جناب saina2006 عزیز با عرض پوزش چون مبتدی هستم یکم بیشتر نیاز به کمک دارم . آدرس فایل رو با استفاده از چه دستوری وچجوری باید وارد کنم مثلا آدرس یکی از فایلام اینه c:\document1.doc

[saina2006]

Option Explicit

Dim document As New Shell

Private Sub Form_Load()

List1.AddItem "Document 1"

List1.AddItem "Document 2"

End Sub



Private Sub List1_Click()

Select Case List1.ListIndex = 1

Case 0

   document.Open "c:\document1.doc"

Case 1

   document.Open "Address of document 2"

End Select

End Sub

در قسمت که نوشته Address of document
توجه کن بدون اضافه کردن Microsoft shell control and Automatin برنامه کار نمی کنه