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