Если ваша ОС - Windows 10, вы можете решить вашу проблему, просто изменив ключ реестра с 0 на 1. Сначала вы проверяете, существует ли обсуждаемый ключ и имеет ли он значение по умолчанию (0):
Debug.Print CreateObject("WScript.Shell").RegRead("HKLM\SYSTEM\CurrentControlSet\Control\FileSystem\LongPathsEnabled")
Если он возвращает 0 (ноль) в Immediate Window, ключ существует и должен быть изменен на 1. После этого вы можете использовать свой существующий (длинный) путь , который может превышать 255 символов .
Если нет Windows 10, я предлагаю вам поделиться папкой в обсуждении и сопоставить ее. Сеть - Ваш компьютер - щелкните папку правой кнопкой мыши и выберите «Подключить сетевой диск» ...