Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > .NET
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-09-2006
Volrath Volrath is offline
Registrado
 
Registrado: ago 2006
Posts: 2
Poder: 0
Volrath Va por buen camino
exepcion Security permission al borrar archivos

Estoy haciendo un programita en VB.net para borrar archivos .LCK y el PDOXUSRS.NET, en caso de que ocurra un problema con el sistema principal y dichos archivos queden tomados. Como se habran dado cuenta, utiliza base de datos PARADOX.

aca les dejo el codigo

Código:
Imports System.IO
Imports System.Security
Imports system.Security.Permissions


Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mensaje As Integer
        mensaje = MsgBox("Antes de realizar esta operación, TODAS las terminales que utilizen los sistemas deben estar cerradas", MsgBoxStyle.OkCancel, "Importante")
        If mensaje = 1 Then
            Dim ruta As String
            Dim rutaRoot As String
            ruta = Directory.GetCurrentDirectory()
            rutaRoot = Directory.GetDirectoryRoot(ruta).Trim()
            'MsgBox(ruta)
            'MsgBox(rutaRoot)
            ' MsgBox(rutaRoot)
            Dim files() As String = Directory.GetFiles(rutaRoot, "*.lck", SearchOption.AllDirectories)
            Dim largo As Integer = files.GetLength(0)
            'MsgBox(largo)
            Dim i As Integer
            i = 0
            For i = 0 To largo - 1
                Me.lblFiletoDelete.Text = files(i)
                File.Delete(files(i))
            Next
            Dim files2() As String = Directory.GetFiles(rutaRoot, "PDOXUSRS.NET", SearchOption.AllDirectories)
            Dim largo2 As Integer = files2.GetLength(0)
            'MsgBox(largo2)
            Dim j As Integer
            j = 0
            For j = 0 To largo2 - 1
                File.Delete(files2(j))
            Next
            MsgBox("Operación Completada", MsgBoxStyle.Information)
        End If
    End Sub

End Class
Eh notado que el problema básicamente se genera cuando pasa por la carpeta de system volume information, y el error que me da es el siguiente:

System.Security.Permissions.FileIOPermission, mscorlib,
Version=2.0.50727, Culture=neutral, PublicKeyToken=b77a5c561934e089

Desde ya agradecido a todo aquel que me pueda brindar una soloución, ya que hace poco que toy programando en VB.NET y soy bastante newbie en el tema ^^U

Última edición por Volrath fecha: 05-09-2006 a las 22:54:14.
Responder Con Cita
  #2  
Antiguo 18-09-2006
Volrath Volrath is offline
Registrado
 
Registrado: ago 2006
Posts: 2
Poder: 0
Volrath Va por buen camino
Le doy un up para ver si alguien me pueda contestar.
No le encuentro la vuelta de como solucionarlo ne cecito ayuda pleaseeee!!!!!
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Borrar archivos rex Varios 9 08-03-2012 22:50:35
borrar archivos y subdirectorios manolop Varios 6 27-07-2006 15:49:58
Como crear una exepcion en el erwin? pani_alex Conexión con bases de datos 7 19-05-2006 17:35:30
borrar archivos lck david duarte Tablas planas 15 15-05-2006 16:37:21
borrar archivos trabuc Varios 1 17-10-2004 13:36:07


La franja horaria es GMT +2. Ahora son las 18:17:41.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi