Viernes 22 de enero de 2010 a las 13:33
Relacionado con el tema me gustaria saber como se copia un archivo de un disco a otro ya que aparece una exepción debido a los permisos de las carpetas.....hice un código que me permitiera tener los permisos pero no se porque no funciona, agradeceria su ayuda. Mi código es...
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.Security
Imports System.Security.Permissions
Public Class Form1
Private Sub BtnDemand_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDemand.Click
' Create a StringBuilder used to create the result string
Dim resultText As New StringBuilder()
' Create an FileIOPermission for accessing the C:\Temp folder
Dim permFileIO As New FileIOPermission(FileIOPermissionAccess.AllAccess, "C:\Adempiere")
LblResult.Text = ""
Try
' Demand the permission to access the C:\Temp folder.
permFileIO.Demand()
System.IO.File.Copy("D:\Adempiere", "C:\Adempiere", True)
resultText.Append("La demanda de permiso de acceso al directorio C:\Adempiere fue un éxito." & vbLf & vbLf)
Catch se As SecurityException
resultText.Append("La demanda de permiso de acceso al directorio C:\Adempiere fue fallído." & vbLf & "Exception message: ")
resultText.Append(se.Message)
resultText.Append(vbLf & vbLf)
End Try
LblResult.Text = resultText.ToString()
End Sub
End Class