No entiendo =(

11/12/2005 - 02:21 por Carolina | Informe spam

Dim OpenFileDialog1 As New OpenFileDialog

OpenFileDialog1.Filter = "Archivos de Access (*.MDB)|*.MDB"

OpenFileDialog1.ShowDialog()

If OpenFileDialog1.FileName <> "" Then

Try

Dim RutaDeBaseDeDatos As String

Const FILE_NAME As String = "TxtAppAuditoriasRutaBaseDeDatos.txt"

'If OpenFileDialog1.ShowDialog = DialogResult.OK Then

' RutaDeBaseDeDatos = OpenFileDialog1.FileName

'End If

EscribirArchivo(FILE_NAME, "Ruta de la base de datos probando")

MenuPrincipal.ToolBarButton1.Enabled = True

MenuPrincipal.ToolBarButton2.Enabled = True

MenuPrincipal.ToolBarButton3.Enabled = True

Catch ex As Exception

MsgBox(ex.Message)

MsgBox("Se produjo un error abriendo el archivo.", MsgBoxStyle.Exclamation,
"Mensaje del Sistema")

End Try

Si capturo la ruta con el openfiledialog entonces el streamwriter (la
subrutina escribirArchivo) no me escribe en la carpetita de mi archivo si no
que crea una archivo nuevo en la ruta...o simplemente me captura un error
que no lo consigue

Gracias por la ayuda de antemano

Carolina

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 FABIAN

11/12/2005 - 02:55 | Informe spam

Carolina, creo que el problema está en el código que no muestras, es decir en
la Subrutina EscribirArchivo...

Responder a este mensaje

#2 Lord Voldemort

12/12/2005 - 23:22 | Informe spam

hola carolina..
he leido que necesitas guardar la ruta de un archivo..
que tal si la grabas en el registro de windows..
es algo simple.. si solo quieres guardar, pues hay un lugarsito para eso en
el registro y es facil de usar

para guardar le pasas asi...
SaveSetting(TuAplicacion_Nombre, "DatosDeLaAplicacion", "Ruta", MiRuta )

para recuperar esa ruta..

MiRuta = GetSetting(TuAplicacion_Nombre, "DatosDeLaAplicacion", "Ruta")

MiRuta es la variable que contiene la ruta del archivo

y eso es todo..

"Carolina" wrote in message
news:uqDYFFf$

Dim OpenFileDialog1 As New OpenFileDialog

OpenFileDialog1.Filter = "Archivos de Access (*.MDB)|*.MDB"

OpenFileDialog1.ShowDialog()

If OpenFileDialog1.FileName <> "" Then

Try

Dim RutaDeBaseDeDatos As String

Const FILE_NAME As String = "TxtAppAuditoriasRutaBaseDeDatos.txt"

'If OpenFileDialog1.ShowDialog = DialogResult.OK Then

' RutaDeBaseDeDatos = OpenFileDialog1.FileName

'End If

EscribirArchivo(FILE_NAME, "Ruta de la base de datos probando")

MenuPrincipal.ToolBarButton1.Enabled = True

MenuPrincipal.ToolBarButton2.Enabled = True

MenuPrincipal.ToolBarButton3.Enabled = True

Catch ex As Exception

MsgBox(ex.Message)

MsgBox("Se produjo un error abriendo el archivo.",
MsgBoxStyle.Exclamation,
"Mensaje del Sistema")

End Try

Si capturo la ruta con el openfiledialog entonces el streamwriter (la
subrutina escribirArchivo) no me escribe en la carpetita de mi archivo si
no
que crea una archivo nuevo en la ruta...o simplemente me captura un error
que no lo consigue

Gracias por la ayuda de antemano

Carolina

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida