Amigos tengo una duda, bueno yo he creado un proceso para abrir un txt y poder editar el contenido ya que en este se encuentra la ruta con la que trabaja mi programa y para no dejarlo tan obsoleto decidi aplicar esto para que lea siempre lo que esta escrito dentro del txt... Bueno en fin el problema es este el programa me carga de lo mejor la ruta dentro del txt y me enlista las carpetas de maravilla, pero al intentar entrar a la parte de parametros(creada por mi) me abre bien el archivo, lo edito, y lo guardo al darle en el boton reiniciar me dice "No se puede continuar porque el archivo se encuentra ocupado", yo supongo que no se cierra.


El codigo que tengo en cargar(para cargar el txt) es este:

Código:

 Dim MiArchivo As String = "\\10.98.6.200\documentacion\Ruta.txt"
        System.Diagnostics.Process.Start("NOTEPAD.exe", MiArchivo)

Y para reiniciar simplemente uso un restart:

Código:

Application.Restart()

Quisiera saber que poder agregarle para que me cierre el archivo? GRacias

Código:

Private _process As Process

Private Sub IniciarProceso()
    FinalizarProceso()
    Dim MiArchivo As String = "\\10.98.6.200\documentacion\Ruta.txt"
    _process = System.Diagnostics.Process.Start("NOTEPAD.exe", MiArchivo)
End Sub

Private Sub FinalizarProceso()
    If _process IsNot Nothing Then
        If Not _process.HasExited Then
            _process.Kill()
        End If
        _process.Dispose()
        _process = Nothing
    End If
End Sub

Menuda ayuda!! Muchisimas gracias amigo el codigo funciona de maravilla, ya he podido lograr la direccion como 40 veces para pobrar y no me ha emitido el error que me emitia antes!!


GRACIAS BRO!!!

Asi me quedo el codigo restablecido Button1(Cargar) y Button2(Reiniciar) !

Private _process As Process

Private Sub IniciarProceso()
FinalizarProceso()
Dim MiArchivo As String = "\\10.98.6.200\documentacion\Ruta.txt"
_process = System.Diagnostics.Process.Start("NOTEPAD.exe", MiArchivo)
End Sub

Private Sub FinalizarProceso()
If _process IsNot Nothing Then
If Not _process.HasExited Then
_process.Kill()
End If
_process.Dispose()
_process = Nothing
End If
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
IniciarProceso()


End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
FinalizarProceso()
Application.Restart()


End Sub