Visual Basic - Aplicación para borrar directorio

Hola a todos/as,

Tengo una carpeta que, debido al uso de un programa, se me llena constantemente de archivos innecesarios. Quería crear una aplicación que me la borre con un solo click.

Mi pregunta es: ¿cómo puedo borrar todo el contenido de una carpeta? (no me importa si se borra o no la carpeta, puesto que el otro programa la volverá a generar si es necesario).
¿Es necesario que utilice el comando kill con la ruta de todas las subcarpetas que tengo, para borrar cada archivo, o existe alguna forma de borrar todo el contenido de una carpeta, incluyendo archivos y subcarpetas?.

Espero haberme explicado bien.
Muchas gracias por vuestro interés y respuestas.

RmDir (Remueve Directorio)

Usa este procedimiento, le envías el nombre de la carpeta de la que quieras borrar los archivos.

Sub BorrarArchivos( stCarpeta as string )
Dim stArchivo as string

if right( stCarpeta,1) <> "\" then stCarpeta = stCarpeta + "\"
Do
stArchivo = Dir( stCarpeta + "*.*" )
if stArchivo = "" then Exit Do 'Sale del ciclo cuando ya no hay archivos.
Kill stCarpeta + stArchivo
Loop
RmDir stCarpeta ' Si quieres eliminar también la carpeta
End Sub

A ver si te sirve

usando microsoft scripting runtime , que se agrega desde proyecto referencias

Private Sub Command1_Click()
KillFolder "D:\VB6"
End Sub

Public Function KillFolder(ByVal FullPath As String) _
As Boolean

On Error Resume Next
Dim oFso As New Scripting.FileSystemObject


If Right(FullPath, 1) = "\" Then FullPath = _
Left(FullPath, Len(FullPath) - 1)

If oFso.FolderExists(FullPath) Then


oFso.DeleteFolder FullPath, True

KillFolder = Err.Number = 0 And _
oFso.FolderExists(FullPath) = False
End If

End Function

investiga que es interesante las otras cosas que podes hacer con Scripting