Dim strFilename  
Dim objFSO  
Set objFSO = CreateObject("scripting.filesystemobject")  


Set objFolder = objFSO.GetFolder(WScript.Arguments(0))


Set colFiles = objFolder.Files
For Each objFile in colFiles
    FileName=objFile.Name

strFilename = WScript.Arguments(0) & "\" & FileName  

i=InStrRev(FileName,".")
if (i>0) then 
	results=Mid(FileName ,1,i-1)
End If


If objFSO.fileexists(strFilename) Then  
    Call Writefile(strFilename)  
Else  
  wscript.echo "no such file!"  
End If  


Next

Set objFSO = Nothing  


Sub Writefile(ByVal strFilename)  
Dim objExcel  
Dim objWB  
Dim objws  

Set objExcel = CreateObject("Excel.Application")  
Set objWB = objExcel.Workbooks.Open(strFilename)  

For Each objws In objWB.Sheets  
 if objws.visible<>2 Then
  objws.visible = True
  objws.Copy  
  objExcel.ActiveWorkbook.SaveAs WScript.Arguments(1) & "\" & objws.Name & ".csv", 6  
  objExcel.ActiveWorkbook.Close False  
 End If
Next 

objWB.Close False  
objExcel.Quit  
Set objExcel = Nothing  
End Sub