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