Visual Basic - Backup de carpetas y ficheros con API

Life is soft - evento anual de software empresarial
   
Vista:

Backup de carpetas y ficheros con API

Publicado por FerScrich (20 intervenciones) el 21/03/2009 12:10:20
Hola, estoy buscando algun codigo en VB6 para hacer un backup de carpetas y ficheros de una unidad extraible .
He encontrado de solo carpetas y sus ficheros, pero quiero que sean todas las carpetas del disco y tb la opcion de restaurar, aunque seria la misma pero los parametros al reves.

Si alguien puede ayudarme.
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Backup de carpetas y ficheros con API

Publicado por P3L30N2009 (701 intervenciones) el 21/03/2009 12:55:19
La API que necesitas se llama:

SHFileOperation
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Backup de carpetas y ficheros con API

Publicado por FerScrich (20 intervenciones) el 21/03/2009 19:26:31
Muchas gracias peleon...

Algun codigo de ejemplo de como aplicarla no soy muy experto en VB

Gracias de antemano
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Backup de carpetas y ficheros con API

Publicado por FerScrich (20 intervenciones) el 21/03/2009 19:38:17
He mirado en la ayuda de VB6 y solo viene copiar archivos , mover , borrar, yo lo que quiero es que copie todas las carpetas y ficheros es para sacar un backup de un pendrive y luego poder restaurar la copia.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ahí va el ejemplo

Publicado por P3L30N2009 (701 intervenciones) el 21/03/2009 21:33:29
Bueno, al menos te has molestado en buscar un poco (aunque no demasiado).

Supongamos que el pendrive está en la unidad K: y lo quieres copiar a un directorio llamado Mis archivos en la unidad D:
(Si el directorio no existe, lo creará sin preguntar)

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
End Type

Private Const FO_COPY = &H2
Private Const FOF_NOCONFIRMMKDIR = &H200&

Private Sub Command1_Click()
CopiarCarpetasyArchivos "K:\*.*", "D:\Mis archivos"
End Sub

Sub CopiarCarpetasyArchivos(ByVal sFuente As String, ByVal sDestino As String)
Dim SFHOp As SHFILEOPSTRUCT
With SFHOp
.hWnd = 0
.wFunc = FO_COPY
.pFrom = sFuente & vbNullChar & vbNullChar
.pTo = sDestino & vbNullChar & vbNullChar
.fFlags = FOF_NOCONFIRMMKDIR
End With
SHFileOperation SFHOp
End Sub

Y para restaurar, pues a la inversa como dices
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

RE:Ahí va el ejemplo

Publicado por FerScrich (20 intervenciones) el 21/03/2009 22:18:20
MUCHAS GRACIAS.... Funciona de maravilla, esto es lo que yo queria.

Y llevo dos dias buscando por internet en los foros y web de VB6 y lo unico que encontraba era copiar ficheros, una que encontre era que imitaba el Xcopy y al final decidi escribir en este foro. y fijate en menos de dos horas solucionado.

Te estoy muy agradecido.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ahí va el ejemplo

Publicado por charlomagno (1 intervención) el 21/10/2013 10:04:48
gracias!!!muy buen aporte!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Backup de carpetas y ficheros con API

Publicado por FerScrich (20 intervenciones) el 22/03/2009 19:46:25
Perdona ya que me hay vien la primera vez, y esta reconozco que no la he buscado. :-)

No tendrias un ejemplo de codigo para usar la API de descargar archivos.

o Es pedir mucho :)

Gracias de antemano
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar