MULTIPLE FILENAMES TO LISTBOX 1

[MrVB50au]

Hi Folks,

Below is some code that I've been fiddling with and trying to get a list box to take a group of selected files.

It don't seem to want to work and keep getting errors.

Sub MoveSelectedFiles()
FileListBox.ListIndex = 0
ListBox.Clear
For i = 0 To FileListBox.ListCount - 1
FileListBox.ListIndex = i
If FileListBox.Selected = True Then
ListBox.AddItem FileListBox.Filename
End If
Next i
End Sub

Can you please help?

Thanks in advance,

Andrew.

 

[vbkris]

where does the error point to???

Known is handfull, Unknown is worldfull

 

[DrJavaJoe]

Try this instead:
Sub MoveSelectedFiles()
ListBox.Clear
Dim i As Integer
For i = 0 To FileListBox.ListCount - 1
If FileListBox.Selected(i) = True Then
ListBox.AddItem FileListBox.List(i)
End If
Next i
End Sub

Two strings walk into a bar. The first string says to the bartender: 'Bartender, I'll have a beer. u.5n$x5t?*&4ru!2[sACC~ErJ'. The second string says: 'Pardon my friend, he isn't NULL terminated'.

 

[MrVB50au]

Now that worked great!

Thanks DrJavaJoe,

Very Very Much Greatful,

Andrew.