Foros del Web » Programación para mayores de 30 ;) » .NET »

[SOLUCIONADO] Eliminar directorios permanentemente vb.net

Estas en el tema de Eliminar directorios permanentemente vb.net en el foro de .NET en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 21/11/2013, 15:40
 
Fecha de Ingreso: junio-2010
Ubicación: Maracaibo, Venezuela
Mensajes: 139
Antigüedad: 9 años, 6 meses
Puntos: 0
Eliminar directorios permanentemente vb.net

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.
  #2 (permalink)  
Antiguo 21/11/2013, 15:57
 
Fecha de Ingreso: junio-2010
Ubicación: Maracaibo, Venezuela
Mensajes: 139
Antigüedad: 9 años, 6 meses
Puntos: 0
Respuesta: Eliminar directorios permanentemente vb.net

Cita:
Iniciado por josiasdaniel_ Ver Mensaje
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.

Etiquetas: directorios
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 04:35.