SaveAS .csv

Const pathPattern As String = "C:\*.xls*"
[COLOR="Navy"]Dim [COLOR="RoyalBlue"]CSVSavePath [/COLOR]As String
Dim FSO As Object[/COLOR]
Filename = Dir(pathPattern)
[COLOR="Navy"]If FSO Is Nothing Then
    Set FSO = CreateObject("Scripting.FileSystemObject")
End If[/COLOR]
Do While Filename <> ""
    Set wb = Workbooks.Open(Filename)
    With wb.Worksheets(1)
        'Do something
    End With
[COLOR="Navy"]    [COLOR="RoyalBlue"]CSVSavePath [/COLOR]= FSO.GetFolder(Filename).Name & "\" & FSO.GetBaseName(Filename) & ".csv"[/COLOR]
    wb.SaveAs Filename:=[COLOR="RoyalBlue"]CSVSavePath[/COLOR], FileFormat:=xlCSV, CreateBackup:=False
    wb.Close True
    Filename = Dir
Loop

Sub Convert_Excel_CSV()
Dim screenUpdateState       As Variant
Dim statusBarState          As Variant
Dim eventsState             As Variant
Dim fso                     As Object
Dim fPath                   As String
Dim myFolder, myFile
Dim wb                      As Workbook
Dim SavePath                As String
Dim I, x                    As Integer

' Turn off some Excel functionality so your code runs faster
    screenUpdateState = Application.ScreenUpdating
    statusBarState = Application.DisplayStatusBar
    eventsState = Application.EnableEvents
    Application.ScreenUpdating = False
    Application.DisplayStatusBar = False
    Application.EnableEvents = False
' Use File System Object to choose folder with files
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then fPath = .SelectedItems(1) & "\"
    End With
' Open each file consequently
        Set myFolder = fso.GetFolder(fPath).Files
            For Each myFile In myFolder
                If LCase(myFile) Like "*.xls*" Then
                    x = FreeFile
                    For I = 1 To x
' Perform tasks with each file
                        Set wb = Workbooks.Open(myFile)
                        With wb.Worksheets(1)
                            'Add code to do something with each file
                        End With
                        
                        ' Save file in original folder, but as csv file format
                        SavePath = fso.GetFolder(fPath).Name & "\" & fso.GetBaseName(myFile) & ".csv"
                        wb.SaveAs fileName:=SavePath, FileFormat:=xlCSV, CreateBackup:=False
                        
                        ' Close file
                        wb.Close True
' Loop through all files in folder
                    Next I
                End If
            Next myFile
'clean up
    myFile = vbNullString
    I = 1
' Turn Excel functionality back on
    Application.ScreenUpdating = screenUpdateState
    Application.DisplayStatusBar = statusBarState
    Application.EnableEvents = eventsState
End Sub

x = FreeFile
For I = 1 To x
    'code
Next x