Como puedo verificar si existe cierto directorio????

[metx]

Necesito crear un directorio.. y para eso.. necesito saber si ya esta creado para borrarlo, con todo lo q esta adentro, y luego nuevamente crearlo..


muchas gracias de ante mano

[Arkhel]

'Importando espacio de nombres
Imports System
Imports System.IO

Module Test
Dim Ruta as DirectoryInfo("C:\Carpeta en donde " & _
"se ecuentra el directorio a eliminar\")
'o simplemente ("C:\")

Dim TodasLasCarpetas(), CarpetaAEliminar as DirectoryInfo

Sub Main()

Configuracion()

End Sub

'configuracion del formulario y botones
Sub Configuracion....

'Iniciamos

Private sub Button_Click(Byval sender as object, _
e as eventargs) handles Button.Click
Try

TodasLasCarpetas = Ruta.GetDirectories()

For Each CarpetaAEliminar In TodasLasCarpetas
If CarpetaAEliminar.FullName = Ruta.FullName _
& "NombreDelDirectorioAElimnar" Then
'Lo que hacemos es concatenar la ruta que habiamos dado a <Ruta> con
' el nombre del directorio a eliminar, lo que nos daría:
'C:\Carpeta en donde se ecuentra el directorio a
'eliminar\NombreDelDirectorioAEliminar")

'si es igual lo eliminamos, incluyendo a sus subdirectorios y archivos
carpeta2.Delete(True)
End If
Next
Catch ex As Exception
MsgBox(ex.Message)

End Try


End Sub



End Module




'Saludos.