Private Sub ButtonGetNextFileName_Click(sender As Object, e As EventArgs) Handles ButtonGetNextFileName.Click
    MsgBox(GetNextFileName("filename", "C:\111\test"))
  End Sub

  Private Function GetNextFileName(ByVal sName As String, ByVal sFolder As String) As String
    Dim iMax As Integer = 0
    Dim ff As String() = IO.Directory.GetFiles(sFolder, sName & ".*") 'первый файл без (i)==(1)
    If (UBound(ff) > -1) Then iMax = 1 'есть первый файл без (i)==(1)
    ff = IO.Directory.GetFiles(sFolder, sName & " (*).*") ' все остальные с (i)
    For Each f As String In ff
      Dim sInd As String = IO.Path.GetFileNameWithoutExtension(f) 'отсекаем ".*"
      sInd = Strings.Right(sInd, Strings.Len(sInd) - Strings.Len(sName) - 2) 'отсекаем sName & " ("
      sInd = Strings.Left(sInd, Strings.Len(sInd) - 1) 'отсекаем ")"
      Dim iInd As Integer = CType(Val(sInd), Integer)
      If iInd > iMax Then iMax = iInd
    Next

    Dim sNextFileName As String = IIf((iMax > 0), sName & " (" & CStr(iMax + 1) & ")", sName)
    Return sNextFileName
  End Function

IO.Directory.GetFiles(sFolder, sName & ".{ex1}{ex2}{ex3}"

IO.Directory.GetFiles(sFolder, sName & ".???")
IO.Directory.GetFiles(sFolder, sName & " (*).???")

  Private Sub ButtonGetNextFileName_Click(sender As Object, e As EventArgs) Handles ButtonGetNextFileName.Click
    MsgBox(GetNextFileName("filename", {"C:\111\test", "C:\Users\Dmitry\Desktop\Новая папка"}, {"tif", "pdf", "sff"}))
  End Sub

  Private Function GetNextFileName(ByVal sName As String, _
   ByVal sFolders As String(), ByVal sExts As String()) As String
    'поиск по заданным папкам sFolders + заданным расширениям

    Dim iMax As Integer = 0
    For Each sFolder As String In sFolders
      For Each sExt As String In sExts
        GetMaxFileIndex(sName, sFolder, sExt, iMax)
      Next
    Next

    Return IIf((iMax > 0), sName & " (" & CStr(iMax + 1) & ")", sName)
  End Function

  Private Sub GetMaxFileIndex(ByVal sName As String, ByVal sFolder As String, ByVal sExt As String, _
   ByRef iMax As Integer)
    'задается шаблон имени, папка поиска, расширение файла
    'ф-ция возвращает максимальный индекс iMax уже имеющегося файла (с учетом входного iMax)
    Dim ff As String() = IO.Directory.GetFiles(sFolder, sName & "." & sExt) 'первый файл без (i)==(1)
    If (UBound(ff) > -1) Then iMax = IIf((iMax > 1), iMax, 1) 'есть первый файл без (i)==(1)
    ff = IO.Directory.GetFiles(sFolder, sName & " (*)." & sExt) ' все остальные с (i)
    For Each f As String In ff
      Dim sInd As String = IO.Path.GetFileNameWithoutExtension(f) 'отсекаем ".*"
      sInd = Strings.Right(sInd, Strings.Len(sInd) - Strings.Len(sName) - 2) 'отсекаем sName & " ("
      sInd = Strings.Left(sInd, Strings.Len(sInd) - 1) 'отсекаем ")"
      Dim iInd As Integer = CType(Val(sInd), Integer)
      If iInd > iMax Then iMax = iInd
    Next
  End Sub

  Private Sub GetMaxFileIndex(ByVal sName As String, ByVal sFolder As String, ByVal sExt As String, _
   ByRef iMax As Integer)
    'задается шаблон имени, папка поиска, расширение файла
    'ф-ция возвращает максимальный индекс iMax уже имеющегося файла (с учетом входного iMax)

    If IO.Directory.Exists(sFolder) = False Then Exit Sub 'sFolder не существует, неверные символы и т.п.

    Dim ff As String() = IO.Directory.GetFiles(sFolder, sName & "." & sExt) 'первый файл без (i)==(1)
    If (UBound(ff) > -1) Then iMax = IIf((iMax > 1), iMax, 1) 'есть первый файл без (i)==(1)
    ff = IO.Directory.GetFiles(sFolder, sName & " (*)." & sExt) ' все остальные с (i)
    For Each f As String In ff
      Dim sInd As String = IO.Path.GetFileNameWithoutExtension(f) 'отсекаем ".*"
      sInd = Strings.Right(sInd, Strings.Len(sInd) - Strings.Len(sName) - 2) 'отсекаем sName & " ("
      sInd = Strings.Left(sInd, Strings.Len(sInd) - 1) 'отсекаем ")"
      Dim iInd As Integer = CType(Val(sInd), Integer)
      If iInd > iMax Then iMax = iInd
    Next
  End Sub

Dim ff As String() = IO.Directory.GetFiles(sFolder, sName & "." & sExt) 'первый файл без (i)==(1)

Dim ff As String() = IO.Directory.GetFiles(sFolder, sName & ".*") 'первый файл без (i)==(1)

  Private Sub GetMaxFileIndex(ByVal sName As String, ByVal sFolder As String, ByVal sExt As String, _
   ByRef iMax As Integer)
    'задается шаблон имени, папка поиска, расширение файла
    'ф-ция возвращает максимальный индекс iMax уже имеющегося файла (с учетом входного iMax)

    If IO.Directory.Exists(sFolder) = False Then Exit Sub 'sFolder не существует, неверные символы и т.п.

    If IO.File.Exists(IO.Path.Combine(sFolder, sName & "." & sExt)) Then _
     iMax = IIf((iMax > 1), iMax, 1) 'первый файл без (i)==(1)
    Dim ff As String() = IO.Directory.GetFiles(sFolder, sName & " (*)." & sExt) ' все остальные с (i)
    For Each f As String In ff
      Dim sInd As String = IO.Path.GetFileNameWithoutExtension(f) 'отсекаем ".*"
      sInd = Strings.Right(sInd, Strings.Len(sInd) - Strings.Len(sName) - 2) 'отсекаем sName & " ("
      sInd = Strings.Left(sInd, Strings.Len(sInd) - 1) 'отсекаем ")"
      Dim iInd As Integer = CType(Val(sInd), Integer)
      If iInd > iMax Then iMax = iInd
    Next
  End Sub

filename (bla-bla) (5).ext
filename (240) (5).ext

  // Запуск ...+ cmd
  STARTUPINFO si;
  PROCESS_INFORMATION pi;
  ZeroMemory(&si, sizeof(si));
  si.cb = sizeof(si);
  si.dwFlags = STARTF_USESHOWWINDOW;
  si.wShowWindow = SW_HIDE;
  ZeroMemory(&pi, sizeof(pi));
  // Start the shelled application:
  if (CreateProcess(szRouteFilename, szCMD, NULL, NULL, TRUE, NORMAL_PRIORITY_CLASS, NULL, szDllPath, &si, &pi)) {
...
    CloseHandle(pi.hProcess);
    CloseHandle(pi.hThread);

        Try
          IO.File.Copy(in_file, out_file, True)
          AddRouteLog("   Copying file '" & in_file & "' into '" & out_file & "'... OK.")
        Catch
          AddRouteLog("   Copying file '" & in_file & "' into '" & out_file & "'... Failed. Error=" & Err.Number.ToString & " (" & Err.Description & ")")
        End Try