No entiendo =(

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