lisbox1.additem error

at the second to the last line I get the error "expected variable of
function" & Additem is highlighted. I would like to populate a listbox with
a list of files.. What is wrong with this?

** snippet
Dim tmp As String
Dim fileList As New Collection
Dim fi As Scripting.file
Dim fldr As Scripting.folder
Dim Cnt As Single
Dim xx As Variant
Dim itm As Variant

Cnt = 0

If fso.FolderExists(FullPath) Then
Set fldr = fso.GetFolder(FullPath)
End If

For Each fi In fldr.Files
tmp = UCase(Right(fi.Name, Len(FileType)))
If tmp = UCase(FileType) Then 'nme = fi.Name 'xx =
Main.ListBox1.AddItem(nme, Cnt)
fileList.Add fi.Name, fi.Name 'Me.ListBox1.List = fileList
End If 'add files to listbox1
Next 'MsgBox FullPath, vbOKOnly, FolderName

For Each itm In fileList
Cnt = Cnt + 1
Me.ListBox1.AddItem(itm, Cnt)
Next

** snippet


Thanks
Matthew

 

loose the ( )

 

Thanks for the tip. The list box is still not populated with the list of
file names. ??

Thanks
Matthew

 

I'm an idiot.. I now have the columncount property set to 1 so I can see
the list...

Thanks
Matthew

 

I'm not going to argue with you.