VBA - How to convert xls, xlsx files in a directory to csv

1. Sub SaveToCSVs()
2. 
   
3. Dim fDir As String
4. Dim wB As Workbook
5. Dim wS As Worksheet
6. Dim csvWs As String, csvWb As String
7. Dim extFlag As Long '0 = .xls & 1 = .xlsx extension types
8. Dim fPath As String
9. Dim sPath As String, dd() As String
10. 
    
11. fPath = "C:\Documents and Settings\mvasas\Desktop\VBA\Dev\_My_Projects\"
12. sPath = "C:\Documents and Settings\mvasas\Desktop\VBA\Dev\_My_Projects\"
13. fDir = Dir(fPath)
14. extFlag = 2
15. 
    
16. Do While (fDir <> "")
17. If Right(fDir, 4) = ".xls" Then
18. extFlag = 0
19. Else
20. extFlag = 2
21. End If
22. If Right(fDir, 5) = ".xlsx" Then
23. extFlag = 1
24. Else
25. extFlag = 2
26. End If
27. On Error Resume Next
28. If extFlag = 2 Then
29. fDir = Dir
30. ElseIf extFlag = 1 Then
31. Set wB = Workbooks.Open(fPath & fDir)
32. csvWb = wB.Name
33. 'Be careful here, this split will split a string into an array
34. 'with a dot (.) delimeter. The string is the name of the workbook
35. 'testing was performed on workbooks where the only dots were at
36. 'the extension ie: CSVSAVERTESTFILE.xlsx. If there is a file with
37. 'a name like, CSV.SAVER.TEST.FILE.xlsx, the file will be renamed:
38. 'CSV.Sheet1.csv as the code takes the first String value in the
39. 'array as the new name.
40. dd = Split(csvWb, ".")
41. For Each wS In wB.Sheets
42. wS.SaveAs sPath & dd(0) & "-" & wS.Name & ".csv", xlCSV
43. Next wS
44. wB.Close False
45. Set wB = Nothing
46. fDir = Dir
47. On Error GoTo 0
48. End If
49. Loop
50. 
    
51. End Sub