
Imports System.IO
Dentro del boton examinar definiremos un FolderBrowserDialog que nos permitira identificar la carpeta donde se encuentran los archivos en los cuales haremos la busqueda. agregaremos al Textbox (Textbox1) la ruta del directorio.

Dim Dir As New FolderBrowserDialog
If Dir.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = Dir.SelectedPath
End IfAhora que tenemos la ruta del archivo en nuestro textbox este sera el codigo en el boton eliminar:Try
Dim midirectorio As String = TextBox1.Text
My.Computer.FileSystem.DeleteDirectory(midirectorio, FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin, FileIO.UICancelOption.DoNothing)
Catch ex As Exception
MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
End Tryal pulsar el boton eliminar nos saldra este mensaje
pulsamos el boton Si y listo se eliminara la carpeta con todo su contenido dentro. Espero este ejemplo les haya servido.

0 comentarios:
Publicar un comentario