Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   .NET (https://www.clubdelphi.com/foros/forumdisplay.php?f=17)
-   -   exepcion Securiry permission al borrar archivos (https://www.clubdelphi.com/foros/showthread.php?t=35269)

Volrath 05-09-2006 22:48:19

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

Volrath 18-09-2006 20:27:13

Le doy un up para ver si alguien me pueda contestar.
No le encuentro la vuelta de como solucionarlo ne cecito ayuda pleaseeee!!!!!


La franja horaria es GMT +2. Ahora son las 03:47:18.

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