انتخاب چند فایل و وارد کردن ادرس انها در لیست

[alishademan]

با سلام و خسته نباشید ببخشید که هنوان رو بد نوشتم دوستان بنده می خواستم یک دکمه رو فرمم داشته باشم که وقتی طرف کلیک کرد روی این دکمه بتونه به عنوان مصال چند تا فایل موزیک رو انتخاب کنه بعد از این که این کار رو کرد ادرس محل قرار گیری فایل های موزیک در لیست ثبت بشه ممنون می شم کمکم کنید با تشکر

[محسن واژدی]

سلام علیکم
کد زیر بررسی کنید:

Private Sub Command1_Click()
On Error Resume Next
Dim sMFiles$(), sMPath$, vCFle
With CommonDialog1
.MaxFileSize = 32000
.CancelError = True
.Filter = "All Files (*.*)"
.flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNHideReadOnly Or cdlOFNNoDereferenceLinks
.ShowOpen
sMFiles$ = Split(.FileName, vbNullChar)
Cls
AutoRedraw = True
For Each vCFle In sMFiles$
If vCFle > "" And vCFle <> sMFiles$(0) Then
Print sMFiles$(0) & vCFle
End If
Next 'vCFle
End With
Exit Sub
End Sub




موفق باشید

[alishademan]

dost aziz bande manzoram listbox bod ?

[محسن واژدی]

dost aziz bande manzoram listbox bod ?

نام list-box را جایگزین Print کنید:
List1.AddItem sMFiles$(0) & vCFle

موفق باشید