Sub OutputFile
Dim lstSave As List
Dim arrHdr() As String
Dim vFile As String
Dim vDate As String
Dim su As StringUtils
lstSave.Initialize
DateTime.DateFormat = "yyyyMMdd-HHmm"
vDate = DateTime.Date(DateTime.Now)
vFile = "testcsv-" & vDate & ".csv"
arrHdr = Array As String("col1","col2","col3","col4","col5","col6")
For vRow = 0 To myArray.Length-1
Dim arrRow(6) As String 'Create a new array of 6 elements -- ie one for each column
For vCol = 0 To 5
arrRow(vCol) = myArray(vRow,vCol)
Next
lstSave.Add(arrRow)
Next
su.saveCSV2(File.DirRootExternal,vFile,",",lstSave,arrHdr)
End Sub