Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Удалить через FSO папки, мешает Гугл Диск
 
Вчера открыл доступ только чтение для другого пользователя в гугл-диске к файлу в папке
После этого перестал срабатывать макрос
Код
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.
Не пойму куда и как прописать параметр. Прошу помощи
 
Почитайте здесь

Код
If f.Name Like "*MAT*" Then f.Delete,True
Страницы: 1
Читают тему (гостей: 1)