Autor
|
Tema: Copiar Ficheros en net (Leído 15,755 veces)
|
David Vans
Desconectado
Mensajes: 193
|
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
|
|
|
En línea
|
|
|
|
MaLkAvIaN_NeT
Desconectado
Mensajes: 213
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.
|
|
|
En línea
|
a por las buenas ideas
|
|
|
d(-_-)b
|
Copiar archivos y carpetas a otro directorio '/// <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
|
|
|
En línea
|
Max 400; caracteres restantes: 366
|
|
|
|
MANULOMM
Desconectado
Mensajes: 559
Erepublik.com
|
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
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Evitar accion de copiar sobre mis ficheros
Seguridad
|
CAOTO
|
1
|
2,290
|
24 Febrero 2013, 13:01 pm
por lipman
|
|
|
Script copiar ficheros escritorio
Scripting
|
Chr0nic
|
3
|
3,281
|
10 Mayo 2013, 11:25 am
por Eleкtro
|
|
|
batch - copiar ficheros txt a una carpeta creándola
Scripting
|
kikoman
|
0
|
1,874
|
5 Agosto 2015, 00:26 am
por kikoman
|
|
|
Ficheros, intento copiar el contenido de un archivo a otro
Java
|
marixxaa
|
8
|
5,083
|
19 Enero 2016, 20:38 pm
por 0xFer
|
|
|
[CMD] script copiar y renombrar varios ficheros
Scripting
|
Mendozak47
|
1
|
3,420
|
7 Febrero 2018, 22:21 pm
por Eleкtro
|
|