Вчера открыл доступ только чтение для другого пользователя в гугл-диске к файлу в папке
После этого перестал срабатывать макрос
Макрос выполнял функцию по удалению файлов с корнем MAT. Если изменить путь за пределы доступа пользователя, то макрос работает.
Если уберем "on error" то получим ошибку Run-time error 70: permission denied
Раздел и раньше синхронизировался с гуглом, но похоже гугл диск самостоятельно расставляет атрибуты
Я погуглив узнал что можно обойти проблему путем ForceDelete.
Не пойму куда и как прописать параметр. Прошу помощи
После этого перестал срабатывать макрос
Код |
---|
Sub удалить() Dim fso As New FileSystemObject Dim f As Folder For Each f In fso.GetFolder("D:Google Диск\для_доступа" ).SubFolders On Error GoTo b If f.Name Like "*MAT*" Then f.Delete Next f b: End Sub |
Макрос выполнял функцию по удалению файлов с корнем MAT. Если изменить путь за пределы доступа пользователя, то макрос работает.
Если уберем "on error" то получим ошибку Run-time error 70: permission denied
Раздел и раньше синхронизировался с гуглом, но похоже гугл диск самостоятельно расставляет атрибуты
Я погуглив узнал что можно обойти проблему путем ForceDelete.
Не пойму куда и как прописать параметр. Прошу помощи