como eliminar carpeta, subcarpetas y contenido?

[dark_girl]

hola a todos
es mi primer post en este foro
me pregunta es como eliminar una carpeta con todo lo que haya dentro de ella
la carpeta que quiero eliminar esta en mis documentos es para untrabajo =S
encontre este codigo en la web pero no entiendo donde devo poner la direccion de la hubicacion de la carpeta
por si no me e explicado bien
por ejemplo
no encuentro en el codigo este donde colocar la cadena de la hubicacion por ejemplo

"C:\archivos de programas\carpeta a eliminar"

Código:

Public Sub CleanAllPath(sPath As String)
    Dim sName As String
    Dim sFullName As String
    ' Array used for holding the directories
    '     ,
    ' however collection may be used as well
    '     
    Dim Dirs() As String
    Dim DirsNo As Integer
    Dim i As Integer


    If Not Right(sPath, 1) = "\" Then
        sPath = sPath & "\"
    End If
    ' clean all files in the directory
    sName = Dir(sPath & "*.*")


    While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbNormal
        Kill sFullName
        sName = Dir
    Wend
   
    sName = Dir(sPath & "*.*", vbHidden)


    While Len(sName) > 0
        sFullName = sPath & sName
        SetAttr sFullName, vbNormal
        Kill sFullName
        sName = Dir
    Wend
   
    ' read all the directories into array
    DirsNo = 0
    sName = Dir(sPath, vbDirectory)


    While Len(sName) > 0


        If sName <> "." And sName <> ".." Then
            DirsNo = DirsNo + 1
            ReDim Preserve Dirs(DirsNo) As String
            Dirs(DirsNo - 1) = sName
        End If
        sName = Dir
    Wend


    For i = 0 To DirsNo - 1
        CleanAllPath (sPath & Dirs(i) & "\")
        RmDir sPath & Dirs(i)
    Next
End Sub

este es el codigo que encontre si me podrian ayudar les doy mis mas sinceras gracias

ciao

[hjKg_DR]

Ojas! "Chica Oscura".

Lo que te "bajaste" fue una funcion recursiva... ya tenia un Buen que no bisteceaba algo así desde que me comenzo a dar comezón la mano y el coco por aprender C.

Para que levantes la funcion va a tener que jalarla desde un Boton o un procedimiento algo así.

sub command1_click()
    CleanAllPath("C:\archivos de programa\ChingateCaon")
end sub

donde ChingateCaon  es la ruta del directorio... Checate la funcion se pela todos los archivos que estan dentro de de la SPATH (KILL)  y guarda los subdirectorio en un arreglo  (ReDim Preserve Dirs(DirsNo) As String), ya que les rajo la mama a los que estan en el padre (archivos) se va con los subdirectorios o sease que se llama a si misma... que canija.... ( For i = 0 To DirsNo - 1) y  CleanAllPath (sPath & Dirs(i) & "\") por ultimo borra el subdirectorio  (RmDir sPath & Dirs(i))

 

Neto que por cosas como estas me case con la PCera.

[xinlu]

Hay algo más fácil para eliminar un directorio:

Código:

Sub EliminarRuta ()
    Dim Ruta As String
    Ruta = "La ruta que quieras"
    MdDir Ruta
End Sub

[ziBboh]

Solo utiliza la funcion Kill "Ruta"