Status: Solved
Priority: Medium
Security: Public
Views: 419
Last Modified: 2012-05-10

VFP - Restore strategy

Hi Experts

Accordingly the backup strategy you've gave before, do you have any restore strategy using the .zip file formed in a daily basis ?

Thanks in advance !

Eduardo Fuerte

Asked: 2010-09-13

Advertise Here

FoxPro

1 Solution

LVL 27

CaptainCyrilFounder, Software Engineer, Data ScientistCommented: 2010-09-13

If you use my code for using Windows Explorer in Windows you can do the backwards now:

cTempPath is the user's temporary path
cTempZip is the temporary zip file location and filename
cSource is the backup file
cDirectory is the destination directory

cTempZip = cTempPath + SYS(3) + '.zip'
IF FILE(cTempZip)
      DELETE FILE (cTempZip)
ENDIF
COPY FILE (cSource) TO (cTempZip)
oShell = CREATEOBJECT("Shell.Application")
cDirectory = cTempPath + ADDBS(TTOC(DATETIME(),1))
IF NOT DIRECTORY(cDirectory)
      MD (cDirectory)
ENDIF
DECLARE INTEGER Sleep IN kernel32 INTEGER
nCount = oShell.NameSpace(cTempZip).items.Count
FOR EACH oFile IN oShell.NameSpace(cTempZip).items
      oShell.NameSpace(cDirectory).CopyHere(oFile)
      = Sleep(1000)
ENDFOR
CLEAR DLLS

Eduardo FuerteAuthor Commented: 2010-09-14

Very clear

Eduardo FuerteAuthor Commented: 2010-09-21

Hello, Cyril

I don't know why the restore started to give an error (and it worked fine before) the directory is correctly created like before, but signs : File already exists...

If you prefer I could open another question...

Thanks in advance

img-21092010.JPG
img2-21092010.JPG

LVL 27

CaptainCyrilFounder, Software Engineer, Data ScientistCommented: 2010-09-21

It looks like you are using XP and don't have Acces Privileges problems.

And cDirectory is by date and time so it's a new directory and the files are not there.

Can you please try it if you hard code:
cDirectory is your temporary folder
"C:\Documents And Settings\<username>\...\Temp\TestDir"
Maybe your system is controlling something like Access Privileges and not letting the file to be copied and the error is misleading.

Eduardo FuerteAuthor Commented: 2010-09-23

Cyril

I couldn't do it yet but I will as soon as possible.

Amazingly it's run fine before and the OS had no new configuration done.

Eduardo FuerteAuthor Commented: 2010-09-23

Cyril

I've tried with no success... very strange.

What could it be... it was pretty good and the OS/ machine is pretty the same...

Thanks !
img-erro-230910.JPG

LVL 27

CaptainCyrilFounder, Software Engineer, Data ScientistCommented: 2010-09-23

Please open the compressed file in Windows Explorer and drag the files inside to the directory cDirectory. See if you can do it manually.

Eduardo FuerteAuthor Commented: 2010-09-24

Sorry...

In the hurry I've introduced an error before the process itself so the error happened....so it's misunderstood me.

COPY FILE &cDestination TO &lcdrive and had not configured correctly the variables before the process...

==============================Início===============================================
EFUERTE # Eduardo 23/09/2010 07:56:31 PM
ERROR() = 1
MESSAGE() = File 'c:\geccvfp\&cdestination' does not exist.
MESSAGE(1) = COPY FILE &cDestination TO &lcdrive
PROGRAM() = RST_DBF2
PROGRAM(1) = MAIN
LINE() = 56
LINE(1) = 56
ALIAS =

Call Stack Level = 1
Current program filename= c:\geccvfp\main.fxp
Module or Object name= main
Module or Object Source filename= c:\geccvfp\main.prg
Line number in the object source file= 426
Source line contents= Read Events
----------------------------------------------------------
Call Stack Level = 2
Current program filename= c:\geccvfp\rst_dbf2.fxp
Module or Object name= ON...
Module or Object Source filename= c:\geccvfp\rst_dbf2.prg
Line number in the object source file= 56
Source line contents=       COPY FILE &cDestination TO &lcdrive
----------------------------------------------------------
===============================Término=============================================

Thanks for your patience in help me !