| Вопрос: Папка не удоляется? | Добавлено: 04.04.07 22:06 |
Автор вопроса:  Stars
|
| Всем сдрасте! При удалении папки с файлами VB выдаёт Err 70 Как её убить? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  D o c a l  ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #1 | Добавлено: 04.04.07 23:04 |
|
Наверно в папке есть файли.
Если да то нада удалять их а потом уже папку |
||
|
Номер ответа: 2 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #2 | Добавлено: 04.04.07 23:53 |
|
Private Sub Command1_Click()
Dim delFSO As Object Set delFSO = CreateObject("Scripting.FileSystemObject" 
delFSO.DeleteFolder "C:\1", True End Sub Все прекрастно удаляется. |
||
|
Номер ответа: 3 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #3 | Добавлено: 04.04.07 23:59 |
| Посмотри не открыт ли какой нибудь файл из этой папки, например в блокноте. | ||
|
Номер ответа: 4 Автор ответа: StarsВопросов: 41 Ответов: 239 |
Профиль | | #4 | Добавлено: 05.04.07 10:58 |
|
Да всем спасибо вчера забыл отписать! Там проблема была в атрибутах там у одного файла атрибут стоял только для чтения.
Ошибку выводило когда я так удалял: Set NewFso = CreateObject("Scripting.FileSystemObject"
NewFso.DeleteFolder a$ ------------ Ну потом у файлов атрибуты сбросил и потом уже этим методом всё прекрастно удалилось |
||
Страница: 1 |