VBS:excel to csv batch conversion

'FOR /f "delims=" %%i IN ('DIR *.xlsx /b') DO excel2csv.vbs "%%i" "%%i.csv"

if WScript.Arguments.Count < 2 Then
    WScript.Echo "Please specify the src and the dst file. Usage: excel2csv <xls/xlsx> <csv>"
    Wscript.Quit
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")
src_file   = objFSO.GetAbsolutePathName(Wscript.Arguments.Item(0))
dest_file  = objFSO.GetAbsolutePathName(WScript.Arguments.Item(1))

Dim oExcel
Set oExcel = CreateObject("Excel.Application")

Dim oBook
Set oBook = oExcel.Workbooks.Open(src_file)

csv_format = 6
oExcel.displayalerts=false
oBook.SaveAs dest_file, csv_format
oExcel.displayalerts=true

oBook.Close False
oExcel.Quit