Copiar Ficheros en net

[David Vans]

Hola a todos estoy usando vb.net queria algo para copiar archivos en uso ya que no me deja copiar ficheros en uso proque pone asceso denegado

Estoy creandome un progrma que haga copias de seguridad

Un salud

[MaLkAvIaN_NeT]

hay programas que no se pueden copiar y si según la política del programa o el sistema operativo, y esto es mas por seguridad, no por otra cosa, ni desde el mismo windows puedes copiar archivos en uso como un *.mdf entre otros.
antes hay que terminar con unos procesos, luego hacer la copia, pero apagar procesos en caliente tambien es riesgoso.

[d(-_-)b]

Copiar archivos y carpetas a otro directorio

Código [Seleccionar] Expandir

'/// <summary>
    '/// Permite copiar archivos y carpetas   
    '/// </summary>
    '/// <param name="diSource">Directorio origen</param>
    '/// <param name="diDestination">Directorio Destino</param>
    '/// <param name="overwrite">Sobreescribir archivos</param>
    '/// <remarks>Creado por Eduardo S. Almazán (RootK - www.forosdelweb.com)</remarks>
    Private Sub CopyFiles(ByVal diSource As DirectoryInfo, ByVal diDestination As DirectoryInfo, _
                          ByVal blOverwrite As Boolean)

        Dim diSourceSubDirectories() As DirectoryInfo
        Dim fiSourceFiles() As FileInfo

        'obtengo todos los archivos del directorio origen
        fiSourceFiles = diSource.GetFiles()
        'obtengo los subdirectorios (si existen)
        diSourceSubDirectories = diSource.GetDirectories()

        'si no existe el directorio destino crearlo
        If Not diDestination.Exists Then diDestination.Create()

        'Usar la recursividad para navegar por los subdirectorios
        'e ir obteniendo los archivos hasta llegar al final
        For Each diSourceSubDirectory As DirectoryInfo In diSourceSubDirectories
            CopyFiles(diSourceSubDirectory, New DirectoryInfo(diDestination.FullName & "\" & _
            diSourceSubDirectory.Name), blOverwrite)
        Next

        For Each fiSourceFile As FileInfo In fiSourceFiles
            fiSourceFile.CopyTo(diDestination.FullName + "\" + fiSourceFile.Name, blOverwrite)
        Next

    End Sub

Para llamarlo:

     'ruta del directorio origen
     Dim diSource As New DirectoryInfo("C:\folderOrigen")
     'ruta del directorio destino
     Dim diDestiny As New DirectoryInfo("C:\folderDestino")
     CopyFiles(diSource, diDestiny, True)

esta es la web de donde lo copie espero que te sirve de algo
http://www.cssboulevar.com.ar/net/codigos/?id=12

[dvreggionx]

http://multingles.net/docs/shadowcopy.htm

lo único que encontré es esto.... pero no lo pude hacer andar.....

"No se encuentra C:\vshadow\GeneratedVarsTempScript.cmd"

[MANULOMM]

te recomiendo que mires ciertas caracteristicas del windows como el microsoft software copy provider, hay muchos servicios que optimizan estas tareas...

Atentamente,

Juan Manuel Lombana
Medellìn - Colombia