Dim su As StringUtils
Dim finalList1 As List
finalList1.Initialize
For Each row() As Object In T_konf.Items
Dim temp(row.Length) As String
For i=0 To row.Length-1
temp(i) = row(i)
Next
finalList1.Add(temp)
Next
su.SaveCSV(File.DirApp,plik&".csv",",",finalList1)