[SOLUCIONADO] Eliminar directorios permanentemente vb.net

[josiasdaniel_]

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.

[josiasdaniel_]

Iniciado por josiasdaniel_

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.

He encontrado la solución y la comparto con todos.
Esta en modificar solo la linea donde aparece AllDialogs.

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.OnlyErrorDialogs, _
                FileIO.RecycleOption.DeletePermanently, _
                FileIO.UICancelOption.DoNothing)
            ' errores  
        Catch ex As Exception
            MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
        End Try
    End Sub

Espero les ayude.