none
Copia de seguridad nuevo archivo con contador RRS feed

 > 

  • Pregunta

  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    Hola estoy trabajando en el apartado de copia de seguridad la cuestion es de que copio el archivo original en la copia 

    Original (Cervezas.xml)

    Copia (Cervezas_copia_10_11_2015.xml)

    Bien quiero lograr que si hago otra copia de seguridad me cree el siguiente archivo

    Cervezas_copia_10_11_2015_1.xml y si le doy otra vez  el siguiente

    Cervezas_copia_10_11_2015_2.xml

    Nesecito informacion

    Gracias

    'HACE COPIA DE SEGURIDAD DE LA BASE DE DATOS XML DE LA CERVEZA
    Private Sub CopiaSeguridadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopiaSeguridadToolStripMenuItem.Click
        Dim fecha As String
        fecha = Date.Now.ToShortDateString
        fecha = Replace(fecha, "/", "_")
        Dim Copia_de_Seguridad As String = MsgBox("¿Desea continuar con la copia de seguridad?, se creara el archivo Cervezas_copia_" & fecha & ".Xml desea crear el archivo", vbOKCancel, "CONFIRMACION")
       
        If Copia_de_Seguridad = vbOK Then
            System.IO.File.Copy("Datos\Cervezas.xml", "Datos\Cervezas_copia_" & fecha & ".xml", True)
        Else
        End If
    End Sub
    'HACE COPIA DE SEGURIDAD DE LA BASE DE DATOS XML DE LA CERVEZA

    martes, 10 de noviembre de 2015 8:53
    |

Respuestas

  • Question
    Inicie sesión para votar
    1
    Inicie sesión para votar

    Deberías comprobar si el archivo existe, si es así, crearte un contador e ir incrementándolo hasta que no exista el archivo:

        'HACE COPIA DE SEGURIDAD DE LA BASE DE DATOS XML DE LA CERVEZA
    Private Sub CopiaSeguridadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopiaSeguridadToolStripMenuItem.Click
        Dim fecha As String
        fecha = Date.Now.ToShortDateString
        fecha = Replace(fecha, "/", "_")
        Dim archivoCopia as String=String.Format( "Cervezas_copia_{0}",fecha)
        If File.Exists(string.Format("Datos\{0}.xml", archivoCopia)) Then
            Dim i as Integer = 1
            While File.Exists(String.Format("Datos\{0}_{1}.xml", archivoCopia, i))
                i = i + 1
            End While
            archivoCopia=String.Format("{0}_{1}", archivoCopia, i)
        End If
        Dim Copia_de_Seguridad As MsgBoxResult = MsgBox("¿Desea continuar con la copia de seguridad?, se creara el archivo " & archivoCopia & ".Xml desea crear el archivo", vbOKCancel, "CONFIRMACION")
        If Copia_de_Seguridad = vbOK Then
            System.IO.File.Copy("Datos\Cervezas.xml", "Datos\" & archivoCopia & ".xml", True)
        End If
    End Sub
    'HACE COPIA DE SEGURIDAD DE LA BASE DE DATOS XML DE LA CERVEZA

    Píldoras .NET
    Artículos, tutoriales y ejemplos de código .NET

    Píldoras JS
    Artículos, tutoriales y ejemplos de código JavaScript, HTML5, CSS3, ...

    • Propuesto como respuesta Sergio Parra martes, 10 de noviembre de 2015 14:12
    • Marcado como respuesta JETET martes, 10 de noviembre de 2015 14:40
    martes, 10 de noviembre de 2015 9:07
    |