Listbox daki isimleri almak

[k0081]

Merhaba arkadaşlar;

Private Sub Command4_Click()
Dim i, s
For i = 1 To List1.ListCount
If s <> "" Then s = s & vbCrLf & i Else s = i
Next
MsgBox s, , "Dosya İsimleri"
Clipboard.Clear
Clipboard.SetText s
End Sub

bu vermiş olduğum kod ile Listbox taki isimleri s değişkenine alıp hafızaya kopyalatmak istiyorum. Fakat isimleri bir türlü alamıyorum , nasıl yapabilirim ?

 

[Orion1]

Şöyle deneyin.

If s <> "" Then s = s & vbCrLf & listbox1.list(i,0) Else s = listbox1.list(i,0)

 

[k0081]

Şöyle deneyin.

If s <> "" Then s = s & vbCrLf & listbox1.list(i,0) Else s = listbox1.list(i,0)

Hocam , Tamamdır.. çok teşekkür ediyorum.

 

[Orion1]

Hocam , Tamamdır.. çok teşekkür ediyorum.

Rice ederim.
İyi çalışmalar.