Saludos amigos foristas, necesito eliminar unos directorios permanentemente si que salga la ventana de advertencia preguntandome si deseo o no eliminarlos.
El siguiente codigo funciona perfectamente solo que me sale la ventanita de advertencia:
Código:
Public Sub EliminarDir(ByVal dir As String)
Try
' Eliminar el archivo, mostrando el cuadro
'de diálogo de eliminar de windows para confirmar
Dim sdir As String = dir
' carpeta
My.Computer.FileSystem.DeleteDirectory( _
sdir, _
FileIO.UIOption.AllDialogs, _
FileIO.RecycleOption.DeletePermanently, _
FileIO.UICancelOption.DoNothing)
' errores
Catch ex As Exception
MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
End Try
End Sub
Si alguien puede ayudarme con algún post o sugerencia será bien recibido.