RE:PARA ALGUIEN QUE SEPA
Publicado por
raul (1 intervención) el 26/07/2007 03:12:17
hola luis, no me anduvo, me tira el mismo error de antes, asi lo hice:
If vsiono = vbYes Then
Var = File1.Path & "\" & File1.FileName
If Var = File1.Path & "\BASE.mdb" Then
Dim archivo As String
Dim Base_Original As String, Base_Backup As String
Dim Fs As Variant
Base_Original = Var
Base_Backup = App.Path & "\DB.mdb"
Set Fs = CreateObject("Scripting.FileSystemObject")
Fs.CopyFile Base_Original, Base_Backup, True
Else
MsgBox "Archivo Incorrecto"
End If
End If
hago esto para una restauracion de la base, o sea, para que el usuario elija donde esta la base que va a restaurar, gracias igual por contestar