For i = 0 to UBound(.FileNames) step 1
                If File.Exists(.FileNames(i)) then
 
 
                    li.Name="a" & i & .FileNames(i)
                    li.Text=path.GetFileName(.FileNames(i))
                    LI.ImageIndex=0
 
 
                    LSI.Name="b" & i
                    LSI.Text=path.GetDirectoryName(.FileNames(i))
 
                    FileList.Items.Add(LI)
                    LI.SubItems.Add(LSI)
 
                End If
            Next i