Visual Basic - Borrar Directorio

¿Como puedo borrar un directorio q no esta vacio sin utilizar una funcion recursiva q lo vacie?
RmDir me exige vaciarlo y no entiendo muy bien como utilizar el metodo Delete puesto q me hace crear unos objetos con unas instrucciones q no he usado nunca y al final me dice acceso denegado.

Puedes usar RmDir para borrar tu carpeta aunque no contenga archivos, solo debes controlar el error que te generará por estar vacia.

Ejemplo:

Private Sub Command1_Click()
Borrar ("C:\RutaCarpeta")
End Sub

Sub Borrar(Ruta As String) 'Se crea un procedimiento
On Error GoTo BorrarError
Kill Ruta + "\*.*"
RmDir Ruta

BorrarError:
If Err.Number = 53 Then
RmDir Ruta 'esto fuerza a que el directorio sea eliminado
End If
End Sub

Suerte !

E probado este codigo pero en la linea donde dice RMDIR RUTA me sale mensaje "Error de acceso a ruta o archivo" porque....? en este caso lo que quiero es borrar la carpeta TEMP de windows o en todo caso como puedo hacer para borrar los TEMPORALES DE MI PC Gracias