Работа с файлами и датой

[TiG]

Здравствуйте. Не получается найти элементарную информацию, помогите пожалуйста простым кодом.
Надо удалить файл по опеделённому пути, и при этом если его не существует, то не вылетала ошибка.
Запретить запуск программы, если дата на компьютере больше например 1-го января 2011 года.

[Денис]

Код формы. На форму кинуть кнопку btn1.

Код: Выделить всё

Option Explicit

Private Sub btn1_Click()

   On Error GoTo btn1_Click_Error

Kill "d:\temp\key.reg"

   On Error GoTo 0
   Exit Sub

btn1_Click_Error:

   MsgBox "Ошибка #" & Err.Number & " (" & Err.Description & ")", vbExclamation

End Sub

Private Sub Form_Load()

Dim DateNow As Date
Dim DateExpire As Date

DateNow = Format(Now, "DD.MM.YYYY")
DateExpire = "18.12.2009"

If DateNow > DateExpire Then Unload Me

End Sub

[TiG]

спасибо)
добавлю только что лучше двойной слеж ставить в пути, а то иногда не пашет, не заню почему