none
Copia de seguridad nuevo archivo con contador RRS feed

  • Pregunta

  • 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

  • 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