Я использовал приведенный ниже код, работал нормально в течение 2 дней, но внезапно сегодня я получаю сообщение об ошибке «Путь не найден» .... раздражает ...
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim sf
Set sf = FSO.GetFolder(Environ("HOMEPATH")).Subfolders