کامپوننت Microsoft Common Dialog Control 6.0 SP6

[just4froum]

با سلام به دوستان :

آیا کسی می دونه که با این کامپوننت چجوری باید چند فایل رو انتخاب کرد که به حالت explorer باشه .

یعنی من وقتی می خوام چند فایل رو انتخاب کنم فلگcdlOFNAllowMultiSelect رو یک می کنم اما شکلش عوض میشه و از حالت explorer خارج میشه وقتی فلگ cdlOFNExplorer رو هم یک می کنم درست میشه اما فقط دایرکتوری فایل های انتخاب شده در Filename ذخیره میشه !!!

حالا من باید چی کار کنم که هم multiselect باشه هم به شکل explorer ?

با تشکر .

[محسن واژدی]

سلام علیکم
از کد زیر استفاده کنید،


Private Sub Command1_Click()
Dim files$(), i, all_sel$
CommonDialog1.Flags = 1cdlOFNExplorer Or cdlOFNAllowMultiselect Or cdlOFNLongNames
CommonDialog1.ShowOpen
files$ = Split(CommonDialog1.FileName, Chr(0))

For i = 1 To UBound(files$)

all_sel$ = all_sel$ & files$(0) & files$(i) & vbNewLine
Next 'i
MsgBox "All files selected: " & vbCrLf & all_sel$, , "Sel count: " & UBound(files$)
End Sub


موفق باشید