Вчера открыл доступ только чтение для другого пользователя в гугл-диске к файлу в папке
После этого перестал срабатывать макрос
Макрос выполнял функцию по удалению файлов с корнем 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.
Не пойму куда и как прописать параметр. Прошу помощи
