Error HRESULT: 0x800A0046 (CTL_E_PERMISSIONDENIED)
Publicado por David Garcia (1 intervención) el 16/09/2009 14:41:30
Buenas tardes y gracias por al ayuda de antemano. Estoy creando una aplicacion VBA.NET y me ha surgido el siguiente problema que no se como solucionar. Creo un fichero .txt del siguiente:
Dim OSys As Scripting.FileSystemObject
Dim oText As Scripting.TextStream
If OSys.FileExists(File_Error) = False Then
OSys.CreateTextFile(File_Error)
oText = OSys.OpenTextFile(File_Error, Scripting.IOMode.ForAppending)
Else
oText = OSys.OpenTextFile(File_Error, Scripting.IOMode.ForAppending)
End If
Lo que sucede es que si el fichero esta creado no hay problema para escribir en el, pero si el fichero no esta creado una vez credo me da el siguiente error
Excepción no controlada del tipo 'System.Security.SecurityException' en WindowsApplication1.exe
Información adicional: Excepción de HRESULT: 0x800A0046 (CTL_E_PERMISSIONDENIED).
El cual no tengo ni idea que es. Alquien me podria decir como solucionarlo.
Muchas gracias y un saludo.
Dim OSys As Scripting.FileSystemObject
Dim oText As Scripting.TextStream
If OSys.FileExists(File_Error) = False Then
OSys.CreateTextFile(File_Error)
oText = OSys.OpenTextFile(File_Error, Scripting.IOMode.ForAppending)
Else
oText = OSys.OpenTextFile(File_Error, Scripting.IOMode.ForAppending)
End If
Lo que sucede es que si el fichero esta creado no hay problema para escribir en el, pero si el fichero no esta creado una vez credo me da el siguiente error
Excepción no controlada del tipo 'System.Security.SecurityException' en WindowsApplication1.exe
Información adicional: Excepción de HRESULT: 0x800A0046 (CTL_E_PERMISSIONDENIED).
El cual no tengo ni idea que es. Alquien me podria decir como solucionarlo.
Muchas gracias y un saludo.
Valora esta pregunta
0