SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Sagutxo en Viernes 23 de Marzo de 2007, 19:21

Título: Borrar Carpeta
Publicado por: Sagutxo en Viernes 23 de Marzo de 2007, 19:21

Salu2.
¿Existe algún comando para borrar una carpeta aunke esta contenga archivos y mas carpetas?

Muchas gracias.
 :smartass:  :comp:  :smartass:

Título: Re: Borrar Carpeta
Publicado por: cpmario en Viernes 23 de Marzo de 2007, 21:45

Revisa el código de este enlace

http://www.planet-source-code.com/vb/scrip...txtCodeId=53785 (http://www.planet-source-code.com/vb/scripts/showcode.asp?lngWId=1&txtCodeId=53785)

Elimina el fólder completo si dejar rastro (en la papelera)
 :comp:

Título: Re: Borrar Carpeta
Publicado por: Angel38 en Viernes 23 de Marzo de 2007, 21:50

Puedes colocar:

Kill "Ruta de archivo"


Aunque no recuerdo bien si debes escribir todas las carpetas cada una o con solo borrar el primer archivo se borrarian todas. Tu prueba.

Título: Re: Borrar Carpeta
Publicado por: ElNapster en Viernes 23 de Marzo de 2007, 22:46

Citar

Puedes colocar:

Kill "Ruta de archivo"


Aunque no recuerdo bien si debes escribir todas las carpetas cada una o con solo borrar el primer archivo se borrarian todas. Tu prueba.

Código: Text

1. Kill "CARPETA"  -- no funciana
2.  

si queres borrar todos los archivos txt que contiene una carpeta seria algo asi

Código: Text

1. Kill "CARPETA\*.txt"
2.  

 :comp:

Título: Re: Borrar Carpeta
Publicado por: Sagutxo en Viernes 23 de Marzo de 2007, 23:15

Salu2, justo ahora lo acababa de conseguir, muchas gracias a todos, es mucho mas sencillo de lo que parece.

Dim ValBorraCarpeta As FileSystemObject
Set ValMueveCarpeta = New FileSystemObject
ValMueveCarpeta.MoveFolder Dir1.Path, ValDestino & "\"

 :comp:  :comp:  :smartass:

Título: Re: Borrar Carpeta
Publicado por: elgordo en Lunes 2 de Abril de 2007, 23:57

puedes explicarlo un poco?
gracias

Título: Re: Borrar Carpeta
Publicado por: Sagutxo en Jueves 5 de Abril de 2007, 00:10

Salu2.

Dir1.Path="c:\PEPITO\CARPETA"
ValDestino="o:\Destino"
ValMueveCarpeta.MoveFolder Dir1.Path, ValDestino & "\"

No se como explicarlo mas :(.

se me olvidaba el final de antes.

Set ValMueveCarpeta = Nothing

Espero haberme explicado.
 :comp:  :smartass:  :comp:

Título: Re: Borrar Carpeta
Publicado por: cpmario en Jueves 5 de Abril de 2007, 01:45

También hay que agregar una referencia a Microsoft Scripting Runtime.
 :comp:

Título: Re: Borrar Carpeta
Publicado por: Sagutxo en Jueves 5 de Abril de 2007, 16:49

Salu2. cpmario, ¿Puedes decirme a que te refieres?. Algunas veces me salta un error e igual tiene algo que ver con lo que comentas.
Gracias.
 :smartass:  :comp:  :smartass:

Título: Re: Borrar Carpeta
Publicado por: cpmario en Jueves 5 de Abril de 2007, 17:08

Revisa esta página, El Guille lo explica muy bien.

http://www.elguille.info/vb/Tips_msdn/tips03.htm (http://www.elguille.info/vb/Tips_msdn/tips03.htm)

 :comp: