Eliminar Archivos

Problema: Por medio de programación, debe eliminar un archivo específico.
Solución: Una de esas cositas que encontré por allí.

Public Sub Eliminar_Archivo(ByVal archivo As String)
        Try
                'My.Computer.FileSystem.DeleteFile(archivo, FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin, FileIO.UICancelOption.DoNothing) 'Opción Larga
                My.Computer.FileSystem.DeleteFile(archivo) 'Opción corta
        Catch ex As Exception
                MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
        End Try
End Sub

La opción larga permite mostrar el cuadro de dialogo que le pregunta al usuario si desea que el archivo vaya a la papelera de reciclaje. La opción corta, simplemente elimina el archivo sin pasar por la papelera. Se usaría de la siguiente manera:

Dim archivo As String = "C:\Carpeta\archivo.txt"

Eliminar_Archivo(archivo)