Ошибка RunTime '70' Отказано в VB6

Question

Я использую VB6. Инструмент, который я создал несколько выдержек архивных файлов и распаковывает их на папку, что я создаю locally.In очистки часть моего кода, я удалил папку, используя этот код

If (f.FolderExists(path + "Extracted Files") = True) Then 
    f.DeleteFolder (path + "Extracted Files") 
End If  

Когда я запускаю этот код , я получаю сообщение об ошибке «Ошибка времени выполнения» 70 и Permission Denied в строке f.DeleteFolder (путь + «Извлеченные файлы»).

Где я иду не так? Или мне нужно создать папку с другим разрешением?

Answer 1

Возможно, один или несколько файлов доступны только для чтения? Используйте принудительный параметр для принудительного удаления:

f.DeleteFolder (path + "Extracted Files"), True 

Answer 2

Вы используете библиотеку, написанную на другом языке для извлечения файлов? Убедитесь, что любой указатель был открыт, вероятно, что какой-то файл открыт, удачи!