none
Guardar 2 cambios en una sola acción de un txt

    Debate general

  • Buen dia una pregunta como puedo cerrar un txt cuando termine un primer proceso haga el cambio en las label y guarde los otros cambios, espero me puedan entender lo que pretendo dejo el code para que lo puedan ver, el error es guardar la primera y cuando desea guardar la segunda dice que el archivo esta en ejecución he ahi cuando no prosigue para hacer los segundos cambios.

            Label61.Text = TextBox1.Text & "LUNES"
            Label55.Text = Label54.Text & "\LUNES\1\1.jpg"
            Label56.Text = Label54.Text & "\LUNES\1\2.jpg"
            Label57.Text = Label54.Text & "\LUNES\1\3.jpg"
            Label58.Text = Label54.Text & "\LUNES\1\4.jpg"
            Label59.Text = Label54.Text & "\LUNES\1\5.jpg"
            Label60.Text = Label54.Text & "\LUNES\LUNES.txt"
    
    
    
            If Label61.Text <> "" Or Label55.Text <> "" Or Label56.Text <> "" Or Label57.Text <> "" Or Label58.Text <> "" Or Label59.Text <> "" Or Label60.Text <> "" Or Label62.Text <> "" Then
                Try
    
                    My.Computer.FileSystem.WriteAllText(Label54.Text & "\" & TextBox1.Text & ".txt", Label61.Text & "|" & Label55.Text & "|" & Label56.Text & "|" & Label57.Text & "|" & Label58.Text & "|" & Label59.Text & "|" & Label60.Text & "|" & Label62.Text & vbCrLf, True)
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            Else
                MsgBox("REVISA LOS DATOS") 'ALGUN CAMPO ESTA VACIO
            End If
    
    
    
            Label61.Text = TextBox1.Text & "MARTES"
            Label55.Text = Label54.Text & "\MARTES\1\1.jpg"
            Label56.Text = Label54.Text & "\MARTES\1\2.jpg"
            Label57.Text = Label54.Text & "\MARTES\1\3.jpg"
            Label58.Text = Label54.Text & "\MARTES\1\4.jpg"
            Label59.Text = Label54.Text & "\MARTES\1\5.jpg"
            Label60.Text = Label54.Text & "\MARTES\LUNES.txt"
    
    
    
            If Label61.Text <> "" Or Label55.Text <> "" Or Label56.Text <> "" Or Label57.Text <> "" Or Label58.Text <> "" Or Label59.Text <> "" Or Label60.Text <> "" Or Label62.Text <> "" Then
                Try
    
                    My.Computer.FileSystem.WriteAllText(Label54.Text & "\" & TextBox1.Text & ".txt", Label61.Text & "|" & Label55.Text & "|" & Label56.Text & "|" & Label57.Text & "|" & Label58.Text & "|" & Label59.Text & "|" & Label60.Text & "|" & Label62.Text & vbCrLf, True)
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            Else
                MsgBox("REVISA LOS DATOS") 'ALGUN CAMPO ESTA VACIO
            End If


    lunes, 6 de marzo de 2017 17:47

Todas las respuestas