Set fso = CreateObject("Scripting.FileSystemObject")
а потом в цикле:
Set f2 = fso.GetFile("c:\testfile.txt")
f2.Move "c:\tmp\testfile.txt"

Sub ParseClientFile()

    'Присваиваем переменную номеру заказа в активной книге и проверяем его заполнение
        Set Order = Range("V6")
        If Order = 0 Then
            MsgBox "Заполните номер заказа по шаблону:" + vbCrLf + "   Год - Номер заказа" + vbCrLf + vbCrLf + "Например: 2022-555", 16, "Ошибка! Макрос остановлен"
            Exit Sub
        End If

    'Присваиваем переменную активной книге
        Set bookserver = ActiveWorkbook
        
        'Сколько будет листов в книге
        Dim mCount
        mCount = 12
        
        Dim avFile
        'Переменная для пути файла
        ChDrive Left(ThisWorkbook.Path, 1)
        'по умолчанию к выбору доступны файлы Excel(xls,xlsx,xlsm,xlsb)
        avFile = Application.GetOpenFilename _
                    ("Excel files(*.xls*),*.xls*", 1, "Выберите файл бланка заказа для обработки", , False)
                    ChDrive Left(ThisWorkbook.Path, 1)
            If VarType(avFile) = vbBoolean Then
                    Exit Sub
                    'была нажата кнопка отмены = выход из процедуры
            End If
        
    'Открываем клиентскую книгу
        Set bookclient = Workbooks.Open(avFile)

            'Проверка на совпадение версий бланка заказа и обработчика
            Set bookclientversion = Range("Z45")
            bookserver.Worksheets("Данные заказа").Activate
            Set bookserverversion = Range("Z45")

            If bookclientversion = bookserverversion Then
                Else
                MsgBox "Версии файлов не совпадают, требуется ручной ввод!" + vbCrLf + "Макрос остановлен"
                Exit Sub
            End If
                
                'Снимаем защиту листа "Данные заказа"
                bookserver.Worksheets("Данные заказа").Activate
                ActiveSheet.Unprotect password:=""
                   
                'Начало копирования диапазонов данных с клиентского файла в расчётный
                                    
                'Конец копирования диапазонов данных с клиентского файла в расчётный
                    
            bookserver.Worksheets("Данные заказа").Activate
            Application.DisplayAlerts = False
            bookclient.Close
        
        'Создаем папку в этой же директории что и bookserver

        MsgBox avFile
        Dim fso As Object
        Set fso = CreateObject("Scripting.FilesystemObject")
        Set folderNew = Range("C45")
            If Not fso.FolderExists(ThisWorkbook.Path & "\" & folderNew.Value) Then
                fso.CreateFolder (ThisWorkbook.Path & "\" & folderNew.Value)
            End If
        Set fso = CreateObject("Scripting.FilesystemObject")
            On Error Resume Next
            fso.MoveFile avFile, ThisWorkbook.Path & "\" & folderNew.Value
            

    'Закрываем клиентскую книгу
        
    'Сохраняем файл с новым именем перезаписывая уже имеющийся
        Dim sFolder As String, sFileName As String
            sFolder = ThisWorkbook.Path & "\" & folderNew.Value & "\"
            sFileName = [C45]
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=sFolder & sFileName & ".xlsm"
        Application.DisplayAlerts = True

    'Приступаем к формированию csv-файлов для базиса
        
        'Присваиваем переменную активной книге
        Set bookclient = ActiveWorkbook

            'Активируем активную книгу
            bookclient.Worksheets("Данные заказа").Activate
            
            'Начало обработки листов "М*+1"
            
            'Конец обработки листов "М*+1"
      
    'Сохраняем файл перезаписывая уже имеющийся
        Application.DisplayAlerts = False
        ChDrive Left(ThisWorkbook.Path, 1)
        ThisWorkbook.Save
        Application.DisplayAlerts = True
        'Application.DisplayAlerts = False
        'bookclient.Close
        Application.Quit


End Sub