none
Copiar un archivo sin sobreescribir

    Pregunta

  • Hola foro!!!

    Seguimos avanzando, y claro, encontrando errores ,alguno sin saber solucionarlos, asi que... espero me sepáis resolver este.

    Quiero copiar un archivo, pero sin sobreescribirlo. y no se como controlar el error de que ya existe para que en ese caso no haga nada.

    Mi código que copia el código (y funciona) es el siguiente

    Dim Hoy As Date = Today
    My.Computer.FileSystem.CopyFile("D:\GESNOEFAC.XLSX", "D:\GESNOEFAC" & Hoy.ToString("yyyy") & ".XLSX", overwrite:=False)

    Pero en el caso de que ya lo haya hecho, y el archivo exista, no quiero que haga nada, a lo sumo un msgbox avisandolo

    Como puedo saber si el archivo ya existe??

    Gracias

    lunes, 27 de marzo de 2017 15:55

Respuestas

  • Perdón, todo solucionado.

    Os dejo el código para quien le pudiera interesar...

    If My.Computer.FileSystem.FileExists("D:\GESNOEFAC" & Hoy.ToString("yyyy") & ".XLSX") = False Then
                My.Computer.FileSystem.CopyFile("D:\GESNOEFAC.XLSX", "D:\GESNOEFAC" & Hoy.ToString("yyyy") & ".XLSX", overwrite:=False)
    Else
                Info.BackColor = Color.Red
                Info.Text = ("El Archivo de facturación de este año ya estaba generado")
    End If

    Y no me voto a mi mismo por que no puedo!!! JAJAJAJAJA

    lunes, 27 de marzo de 2017 16:03