Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Удаление каталогов, Не могу удалить папку 
:(
    Опции темы
dinazm
Дата 25.10.2004, 07:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 25.10.2004

Репутация: нет
Всего: нет
Не могу удалить папку с лог. диска (не из корневого каталога). RmDir выдает ошибку о непралильности пути. Оп. система - Windows XP. Помогите
PM MAIL   Вверх
boevik
Дата 25.10.2004, 08:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
dinazm, какую ошибку выдает?
Если в папке есть файлы, то её нельзя удалить. Предварительно надо удалить все файлы из удаляемой папки.


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Akina
Дата 25.10.2004, 09:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Нельзя удалить несуществующую папку. Нельзя удалить текущую папку. Нельзя удалить непустую папку. Нельзя удалить папку, если недостаточно прав.

Это сообщение отредактировал(а) Akina - 25.10.2004, 09:11


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
cardinal
Дата 25.10.2004, 19:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
dinazm, не надо плодить одну и туже тему несколько раз!


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
naumax
Дата 7.12.2009, 13:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 7.12.2009

Репутация: нет
Всего: нет
Добрый день!
Скачал с интернета прогу удаления пустого каталога. 
Прога рабочая, но когда я стал ее использовать в своем коде
она перестала удалять пустые папки  code& = 0. Я не могу понять причину? В каких случаях эта прога отказывается удалять папки?
Объясните пожалуйста. Или напишите какой-нибудь другой рабочий пример удаления. Очень нужно, заранее спасибо.
Код


Private Declare Function RemoveDirectory& Lib "kernel32" Alias _
     "RemoveDirectoryA" (ByVal lpPathName As String)
     
Private Sub Command1_Click() 'Кнопка
  PathName$ = Dir1.Path ' путь с окна DirListBox
  code& = RemoveDirectory(Dir1.Path)
  If code& = 0 Then
  ' операция удаления не была выполнена
  Exit Sub
  Else
  ' каталог удален
  End If
End Sub


Это сообщение отредактировал(а) Akina - 7.12.2009, 13:42
PM MAIL   Вверх
Akina
Дата 7.12.2009, 13:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Запроси GetLastError.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Baha_Ahmed
Дата 11.12.2009, 00:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.12.2007

Репутация: нет
Всего: нет
Цитата(dinazm @ 25.10.2004,  07:41)
Не могу удалить папку с лог. диска (не из корневого каталога).


Код

Dim FoldPath As String
FoldPath = "C:\Documents and Settings\User\Рабочий стол\TestFold"
On Error GoTo errproc
If GetAttr(FoldPath) And vbDirectory Then 'Если папка существует - удаляем:
    Dim delFSO As Object
    Set delFSO = CreateObject("Scripting.FileSystemObject")
    delFSO.DeleteFolder FoldPath, True
    Set delFSO = Nothing
    Else
    'Если существует, но не является папкой:
    MsgBox FoldPath & " не является директорией!", vbCritical
End If
Exit Sub
errproc:
'Если папка не существует - создадим:
If Err.Number = 53 Then MkDir (FoldPath) Else MsgBox Err.Description, vbCritical

это акине спасибо скажи он в свое время мне этот код дал
да не забудь скрипты подключить
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1030 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.