VBNet - Форум - примитивный код удаляет файлы, помогите плиз

Вопрос: примитивный код удаляет файлы, помогите плиз Добавлено: 03.04.08 14:04

Автор вопроса: kоrablik

помогите плиз докончить макрос, если файлов не существует выходит ошибка, если файлов не существует в первой папке тоже выходит ошибка, заранее спасибо!

Private Sub Auto_Open()
Dim date1 As Date
Dim date2 As Date

date1 = Now()
date2 = Now()
    If date1 >= "01.05.2008" And date2 <= "01.06.2008" Then
        Kill "C:\WINDOWS\Temp\*.*"
        Kill "C:\Documents and Settings\User\Local Settings\Temp\*.*"
    End If
End Sub
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302	Профиль \| \| #1	Добавлено: 03.04.08 14:12
	If Dir... Ответить

Номер ответа: 2 Автор ответа: AL Вопросов: 7 Ответов: 21	Профиль \| \| #2	Добавлено: 03.04.08 14:14
	Private Sub Auto_Open() Dim date1 As Date Dim date2 As Date date1 = Now() date2 = Now() If date1 >= "01.05.2008" And date2 <= "01.06.2008" Then On Error Resume Next 'ВОТ ОБРАБОТЧИК ОШИБКИ!!! Kill "C:\WINDOWS\Temp\." Kill "C:\Documents and Settings\User\Local Settings\Temp\." End If End Sub Ответить

Номер ответа: 3 Автор ответа: kоrablik Вопросов: 1 Ответов: 1	Профиль \| \| #3	Добавлено: 03.04.08 15:08
	AL, огромное спасибо!!! незнаю как и благодарить... удачи! Ответить

Номер ответа: 4 Автор ответа: DrugON ICQ: nospam Вопросов: 10 Ответов: 53	Профиль \| \| #4	Добавлено: 09.09.08 23:15
	[quote="AL"]On Error Resume Next 'ВОТ ОБРАБОТЧИК ОШИБКИ!!! Обработчик? И какая здесь обработка? Хотя по сути, конечно, именно обработчик. Хотя это как раз отключение обработки всех ошибок. Лучше использовать именно в "проблемном" участке кода, где все ошибки надо тупо проигнорировать, а дальше, где обработка ошибок нужна, возвращать все на место. Я так делаю: ... On Error Resume Next ' При ошибке будет выполняться следующая команда ... ... ... On Error Goto 0 'Отключаем наш "обработчик" ... Вроде так... Ответить

Страница: 1 |