ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / и еще раз Kill
14 сообщений из 14, страница 1 из 1
и еще раз Kill
    #36034381
ABinker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ABinker
Участник
Приветствую!

Есть список List1. Там есть список файлов:

c:\a.txt
c:\b.txt
c:\c.txt

Мне надо удалить все файлы которые записаны в списке.

Делаю так

Dim i As Long

For i = 0 To List1.ListCount - 1
Kill List3.List(i)

Next i
Файлы удаляются, но вылетает ошибка... Как убрать сообщение об ошибке?
...
Рейтинг: 0 / 0
09.06.2009, 22:56
| Ответить | Цитировать | Написать  
и еще раз Kill
    #36034563
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
ABinker,
Странно, что вообще что-то работает
Kill List1.List(i)
...
Рейтинг: 0 / 0
10.06.2009, 06:10
| Ответить | Цитировать | Написать  
и еще раз Kill
    #36035679
ABinker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ABinker
Участник
big-duke,

ну да, просто когда сюда писал, допустил ошибку. В когде к самой программе я правильно указал.

Так как же избежать ошибку?
...
Рейтинг: 0 / 0
10.06.2009, 14:54
| Ответить | Цитировать | Написать  
и еще раз Kill
    #36035757
FAndrew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FAndrew
Участник
ABinkerну да, просто когда сюда писал, допустил ошибку.
Копи-паст рулит.
...
Рейтинг: 0 / 0
10.06.2009, 15:21
| Ответить | Цитировать | Написать  
и еще раз Kill
    #36035979
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
ABinker,

Какая ошибка?
Убрать сообщение об ошибке или все-таки саму ошибку?
...
Рейтинг: 0 / 0
10.06.2009, 16:43
| Ответить | Цитировать | Написать  
и еще раз Kill
    #36035988
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
ABinker,

А главное, проверьте, может там у Вас пустая линия в List1.

Успехов
...
Рейтинг: 0 / 0
10.06.2009, 16:46
| Ответить | Цитировать | Написать  
и еще раз Kill
    #36036023
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
ABinker,

И еще, вот эта проверка:

Debug.Print TypeName(List1.ListCount)

Дает тип Integer. Раз так, то нет смысла декларировать Ваши i как Long.

Успехов
...
Рейтинг: 0 / 0
10.06.2009, 16:57
| Ответить | Цитировать | Написать  
и еще раз Kill
    #36036460
ABinker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ABinker
Участник
Выскакивает сообщение об ошибке 53. Мне нужно что-бы файлы удалились, и при этом никаких сообщений об ошибке не выскакивало...
...
Рейтинг: 0 / 0
10.06.2009, 20:04
| Ответить | Цитировать | Написать  
и еще раз Kill
    #36036590
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
ABinker,

Эта ошибка "Файл не найден".

Вы пытаетесь удалить несуществующий файл.
...
Рейтинг: 0 / 0
10.06.2009, 23:06
| Ответить | Цитировать | Написать  
и еще раз Kill
    #36036591
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
ABinker,

Я к тому, что подавить ошибку можно, да только не лучше ли аккуратно написать процедурку?
...
Рейтинг: 0 / 0
10.06.2009, 23:10
| Ответить | Цитировать | Написать  
и еще раз Kill
    #36037513
SNickeMAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SNickeMAN
Гость
On Error Resume Next
...
Рейтинг: 0 / 0
11.06.2009, 13:16
| Ответить | Цитировать | Написать  
и еще раз Kill
    #36038554
ABinker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ABinker
Участник
SNickeMAN,

Resume next ошибку не перехватывает. Можно конечно подавить таким образом:

If Err.Number <> 53 Then GoTo ...... Но тогда не все файлы будут удалены.
...
Рейтинг: 0 / 0
11.06.2009, 23:56
| Ответить | Цитировать | Написать  
и еще раз Kill
    #36038580
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
ABinker,

Повторю: надо аккуратно писать код, и все будет хорошо.
Сколько файлов удаляется? Сколько всего линий в листе боксе? Осуществляется проверка на существование файла? Мы программируем, мы не стихи пишем....
:0)
...
Рейтинг: 0 / 0
12.06.2009, 00:53
| Ответить | Цитировать | Написать  
и еще раз Kill
    #36050334
Роман Шевченко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Роман Шевченко
Гость
Как вариант - проверять наличие удаляемого файла перед тем как его удалять.... Нопример, с помощью єтой функции:
Код: plaintext
1.
2.
3.
4.
5.
6.
Public Function ExistFile(ByVal strFileName As String) As Boolean ' Функция проверки наличия файла
  ExistFile = False
  On Error GoTo f1
  ExistFile = (Dir(strFileName) <> "")
f1:
  On Error GoTo  0 
End Function

То есть, у вас будет приблзительно следующий код:

Код: plaintext
1.
2.
If ExistFile ("путь и имя файла") = True then
... 'Удаление
End if
...
Рейтинг: 0 / 0
19.06.2009, 12:01
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / и еще раз Kill
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=36036590&tid=2160827]:
 0ms
get settings:
 10ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 56ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 66ms
get tp. blocked users:
 2ms
others: 226ms
total:  399ms
созд. / загр.: 399ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]