XML : VBA to convert XML files to one CSV

  Sub xmltoxl()  Dim f As String  Dim wbk As Workbook  Dim s As Integer    f =     Dir("C:\Users\Kanye\Downloads" & "\*.xml")  s = 0    Do While Len(f) > 0      s = s + 1      Set wbk = Workbooks.OpenXML("C:\Users\Kanye\Downloads" & "\" & f)  wbk.SaveAs Filename:="C:\Users\Kanye\Downloads\Test" & s & ".csv"  wbk.Close False  f = Dir()  Loop    End Sub    

I have 900 XML files. This code takes one XML file and converts it to one CSV. Is there a way to convert it to one total CSV?

I try the process below but the data is corrupted when opening it (I get this error: http://imgur.com/SiyiGag)

  cd /Users/kanye/Desktop/XML/unzipped  copy *.csv newfile.csv    

This ends up giving me the data as such http://imgur.com/zK0R2UT