Giúp mình vơi

[xeko]

Khi mình dung cái hộp thoại dialog đẻ mở hộp open có thể lay nhiều file nhưng mình mắc ở chỗ nay
List1.Additem (commondialog1.filename)
Nhung trong List chi hiện thị thư mục chứa các file chứ ko hiển thị tưng file rõ rang. Cứu mình với :rolleyes:

[White_Rose]

:-) Bạn đã click vào một file nào đó rồi click vào Open chưa?

[xeko]

Y cua minh la cai dialog co the lay nhieu file 1 luc chu ko phai la cai ma moi lan chi co the lay mot file

[minhvdkhtn]

nếu bạn chọn nhiều file một lúc thì dlg.filename sẽ trả về một xâu chứa các file đó có kí tự phân cách.
bạn tách nó ra rồi dùng vòng for mà add vào là được.
Code hướng dẫn đây, phải nói là ngon quá:

' Returns False if the command has been canceled, True otherwise.
Function SelectMultipleFiles(CD As CommonDialog, Filter As String, _
Filenames() As String) As Boolean
On Error GoTo ExitNow

CD.Filter = "All files (*.*)|*.*|" & Filter
CD.FilterIndex = 1
CD.Flags = cdlOFNAllowMultiselect Or cdlOFNFileMustExist Or _
cdlOFNExplorer
CD.DialogTitle = "Select one or more files"
CD.MaxFileSize = 10240 'de phong mo qua nhieu file, binh thuong filename co length khong qua 256 ki tu.
CD.Filename = ""
' Exit if user presses Cancel.
CD.CancelError = True
CD.ShowOpen

' Parse the result to get filenames.
Filenames() = Split(CD.Filename, vbNullChar)
' Signal success.
SelectMultipleFiles = True
ExitNow:
End Function

Chúc vui.

[klong]

minh chat thinh thoang bi virus va ko biet phai lam the nao , va minh phai lem the nao khi khi bi nhu vay