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, ...