Visual Basic - la orden filecopy

Life is soft - evento anual de software empresarial
 
Vista:

la orden filecopy

Publicado por alberto (10 intervenciones) el 26/11/2004 04:26:47
Alguin me podria explicar como funciona la orden filecopy para respaldar una base de datos
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:la orden filecopy

Publicado por fernando (79 intervenciones) el 26/11/2004 17:08:49
Hola,
acá te mando como hago la copia de respaldo yo, no uso filecopy, pero uso copy, q te debe servir igual supongo, espero q te sirva, saludos

Dim fs, f, s
Dim pa As String

pa = Dir1.Path
'hacer backup
Set fs = CreateObject("Scripting.FileSystemObject")
If UCase(Dir1.Path + "\") = UCase(gpath) Then
MsgBox "Elija otra carpeta", vbInformation
Exit Sub
End If
Set f = fs.GetFile(gpath + gbase)
f.Copy Dir1.Path + "\" + gbase, True
MsgBox "El bakcup fue realizado con éxito", 48
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:la orden filecopy

Publicado por ricardo (33 intervenciones) el 26/11/2004 20:56:11
escribeme un correo y te envio un ejemplo
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:la orden filecopy

Publicado por Luis Atondo (28 intervenciones) el 26/11/2004 18:42:10
'seria algo asi instruccion archivoacopiar,novoarchivo
FileCopy "imagen.gif", "nueva.gif"

'o si utilizas bd de acces podrias utilizar esta instruccion, que ademas de respaldar la bd te la compacta.

DBEngine.CompactDatabase "BasedeDatos.mdb", "Respaldo.mdb"
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:la orden filecopy

Publicado por jlcastro (186 intervenciones) el 28/11/2004 11:25:28
Private Sub copiaseguridad_Click()
mensaje$ = \"¿Desea hacer copia de seguridad?\"
respuesta = MsgBox(mensaje$, vbOKCancel + vbInformation, \"Copia de Seguridad\")
If respuesta = vbOK Then \'si el usuario pulsa Aceptar
Dim sFicOri As String, sFicDes As String
Dim Fs As Variant

sFicOri = \"c:\datos.mdb\"
sFicDes = \"c:\datos.mdb\"

Set Fs = CreateObject(\"Scripting.FileSystemObject\")
Fs.CopyFile sFicOri, sFicDes, True
End If

End Sub
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