Título: como borro un directorio con todo su contenido Publicado por: Mr pom0 en 4 Octubre 2007, 21:03 pm hola que tal tengo una duda alguna persona me puee decir como hacer para eliminar un directorio con todo su contenido ya se eliminar archivos pero no puedo eliminar el directorio me podrian ayudar y decirme cual es la funcion para eliminar muchas gracias
Título: Re: como borro un directorio con todo su contenido Publicado por: nhaalclkiemr en 4 Octubre 2007, 21:50 pm Código
No es el mejor método pero weno, de momento sirve...aunke no lo prové devería de ir... Saludos ;) Título: Re: como borro un directorio con todo su contenido Publicado por: zXxOsirisxXz en 4 Octubre 2007, 22:11 pm Puedes borarr el folder, si ese es el caso.
Citar Kill "C:\ bla bla bla bla" EN cualkier otro caso, puede usar este codigo de "ranefi" Código: Public Ruta As String Título: Re: como borro un directorio con todo su contenido Publicado por: Spider-Net en 4 Octubre 2007, 22:24 pm Lo puedes hacer también desde Visual Basic directamente sin usar la Shell. Primero tienes que borrar todos los archivos del directorio para poder borrar el directorio, sería algo así:
Public Sub Borrar() On Error Resume Next directorio = "C:\Ejemplo" Kill directorio & "\*.*" RmDir directorio End Sub Como dijo zXxOsirisxXz creo que sólo funcionaría si el directorio está vacío, cosa poco probable por lo que hay que eliminar antes el contenido que lo puedes hacer con esa pequeña función. De todas formas si dentro de la carpeta Ejemplo existen más subcarpetas creo que ninguno de los métodos funcionaría así que deberías de eliminar todos los archivos y además todas las subcarpetas de tu directorio, así luego si te permitiría borrarlo. Creo que es así.. Saludos. Título: Re: como borro un directorio con todo su contenido Publicado por: zXxOsirisxXz en 4 Octubre 2007, 23:35 pm Ps bueno, aki tengo otra forma, si no te acomodan las otras..
Citar Sub BorrarCarpeta(sPath As String) Dim sName As String Dim sFullName As String Dim Dirs() As String Dim DirsNo As Integer Dim i As Integer If Not Right(sPath, 1) = "\" Then sPath = sPath & "\" End If 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 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 BorrarCarpeta (sPath & Dirs(i) & "\") RmDir sPath & Dirs(i) Next End Sub Private Sub Form_Load() BorrarCarpeta ("[LocalizacionDelFolder]") End End Sub Esta la uso, y funciona bien, borra todo el contenido de cualkier folder.. pero.. no el folder ^^ pero si el contenido.. lo kual es iwal importante.. para el folder.. ps usa la "kill" como añadido. O bien usa el metodo de Spider-Net k iwal borra ^^ Salu2 Título: Re: como borro un directorio con todo su contenido Publicado por: Mr pom0 en 5 Octubre 2007, 18:34 pm Muchas gracias esta muy bueno y fi funciona solo lo cambie un poco para que no este todo en el form muchas gracias
|