Пять папок. Четыре считает, а на пятой - "run time error 76 path not found". В пятой папке четыре папки. Три считает, а одну - нет.
Метод - стандарт.
Внутри именно этой папки - дистрибутивы и драйвера. Остальные беспроблемные папки - медиафайлы.  

Скрытый текст
.... Set fso = CreateObject("Scripting.FileSystemObject")    РазмерПапкиВБайтах_F_3 = fso.GetFolder(FolderPath_F_3).Size.Count ....

Андрей, низкий поклон за науку!
Раньше даже не подозревал о возможностях регулярки.

К сожалению по ссылке ничего не нашел. Там только 4 вхождения $
      2.4. Multiline
      Замечание: чтение и запись. Влияет на работу метасимволов ^ и $.
     4. Метасимволы
    objRegExp.Pattern = "^[A-Z]:\\$"
    $     Определяет конец входной строки.
   objRegExp.Pattern = "абв$"

Как я понял в паттерне,
pReg.Pattern = "([А-ЯЁ])[а-яё]+(?= )"
Галина_
Г это группа ([А-ЯЁ])
алина это диапазон с квантором [а-яё]+
пробел это группа (?= )  То есть, до пробела. Кстати, где этот синтаксис расписан?

Ну, а дальше
Replace(text, "$1.")
К первой группе (прописная буква) добавляется точка.

А если
pReg.Pattern = "([А-ЯЁ])[а-яё]+(?= )"
заменить на
pReg.Pattern = "([А-ЯЁ])[а-яё]+(?= ) "
то пропадет пробел между точкой и фамилией, что равносильно указанному выше коду

   pReg.Pattern = "[.] "
   getShortest = pReg.Replace(getShortest, ".")

Меняем на первую букву и точку
Подскажите пожалуйста, что это за синтаксис
$1
Насколько я понял, это подстановка строк?
Если не трудно, чуть подробнее об этих подстановках или ссылку.

Большое спасибо!
Проштудирую.

Опробовал...
Автор поста уверяет откликнувшихся в величайшем к ним уважении...

Никогда не пользовался таким способом.
Подскажите великодушно, где бы поподробнее ознакомится с сим способом.  

Спасибо!
Вечером все опробую

Огромное спасибо, а в Excel макрос на всю колонку?

Делаю каталог фильмов. Данные - с Киноэксперта. Нужно сократить колонку. Желательно с именами обойтись без словаря имен.

Может уже есть похожие решения?
==================================
 Было

Галина Беляева (...Джоанна Седвик), Александр Филиппенко (...будущий Ричард Глостер), Игорь Шавлак (...Дик Шелтон), Владимир Литвинов, Владимир Разумовский, Дмитрий Герасимов, Александр Кудинов, Николай Дупак, Юрий Смирнов, Дмитрий Орловский (...Картер), Сергей Тарасов, Яна Друзь, Леонид Кулагин, Альгимантас Масюлис, Борис Химичев (...Джон Мщу-за-всех), Борис Хмельницкий.

Стало

Г.Беляева, А.Филиппенко, И.Шавлак, В.Литвинов, В.Разумовский, Д.Герасимов, А.Кудинов, Н.Дупак, Ю.Смирнов, Д.Орловский, С.Тарасов, Я.Друзь, Л.Кулагин, А.Масюлис, Б.Химичев, Б.Хмельницкий

 

Большое спасибо за пример. Возьму за основу. Теперь бы еще блок по переносу подобрать

Скачал "махом" несколько десятков тысяч старых любимых записей .mp3. Лежат в подкаталогах по первой букве, но это не проблема для переноса в одну папку.
В именах файлов есть все для принятия решения (актеры, тематика). Нужны не все файлы.
В Exсel сделал список с ключевыми словами/фразами.

Нужно сделать перебор файлов с поиском вхождения и рассортировать их по двум папкам - "нужное" и "на удаление".
Сортировка - только перенос на этом же диске (объем - пол Тера).

Может, кто знает, наверное есть уже подобное решение силами VBA на Exсel или я ошибаюсь.
Заранее спасибо.