چطور یک برنامه باز کننده فایل بسازم

[muttahary21]

سلام
یک سوال دارم که اگر کمک کنید خوشحال میشم
چطور یک برنامه بسازم که وقتی تو یک فولدر وقتی چند فایل را انتخاب میکنم و با برنامه ساخته شده باز میکنم آدرس اونا توی یک ListBox به ترتیب اضافه بشه ممنون میشم اگر کمک کنید البته منظور تو یک فولدر در مای کامپیوتر هست یعنی از طریق مای کامپیوتر بریم به یک فولدر بعد مثلا چند موزیک را انتخاب کنیم و با برنامه خودمان بازش کنیم و آدرس همون چند فایل توی یک Listbox به ترتیب اضافه بشود خوشحال میشم کمک کنید
این کد برای باز کردن یک فایل کار میکنه مثلا پخش یک صوت
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim file As String = Command$()
file = Replace(file, Chr(34), "")
AxWindowsMediaPlayer1.URL = file
End Sub

[ircast]

سلام
یک سوال دارم که اگر کمک کنید خوشحال میشم
چطور یک برنامه بسازم که وقتی تو یک فولدر وقتی چند فایل را انتخاب میکنم و با برنامه ساخته شده باز میکنم آدرس اونا توی یک ListBox به ترتیب اضافه بشه ممنون میشم اگر کمک کنید

سلام
این کد رو در نظر بگیرید
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim path() As String
Dim pathcount As Integer = 0
Dim pathtotal As Integer = 0
Dim OpenFile As New OpenFileDialog
' OpenFile.Filter = "jpg|*.jpg|png|*.png|gif file|*.gif|bitmap|*.bmp"
OpenFile.Multiselect = True
If OpenFile.ShowDialog = Windows.Forms.DialogResult.OK Then
path = OpenFile.FileNames
pathtotal = path.Length - 1
For i As Integer = 0 To pathtotal Step 1
ListView1.Items.Add(path(i))
Next
End If
End Sub