BACK UP code 3

[boomerangboi]

I'm having problems on how to make back up files in my desired path using VISUAL foxpro. My code is this:

PROCEDURE BackUp

bdrive = "C:\bak\"+SUBSTR(DTOS(DATE()),3,6)+".zip"

WAIT "Back-uping Database and tables..." WINDOW NOWAIT NOCLEAR

*! wzzip &bdrive data\sapmis_dbf.dbc data\*.dbf
! pkzip &bdrive data\sapmis.* data\*.dbf data\*.cdx

WAIT "Back-up process completed. Press anykey to close window or wait to close automatically..." WINDOW TIMEOUT 5
ENDPROC

I tried to set the default in my desired path BUT it just make a backup zip once. After that, it don't update the zip file. Is there something wrong with my code? THX in advance.

 

[boomerangboi]

oops, sorry. I made it already...

Thanks for the help.

 

[GriffMG]

Good luck.

Remember, all these things need exclusive access to work.

Regards

Griff
Keep [Smile]ing

 

[boomerangboi]

guys, I am having problems on how can I use the default folder so I can use it on those codes. It happens that the MIS I am developing will be used in different computers. the path which is C:\sapmis should be in default value because that will occur an error if the MIS is in another path.

I want to do this:

  private instruction
  instruction = "pkzip -a c:\GRUNDER\sapmis\"+SUBSTR(DTOS(DATE()),3,6)+".zip data\sapmis.* data\*.dbf data\*.cdx data\*.fpt"
  strtofile(instruction,"c:\GRUNDER\sapmis\backup.bat")
  [B]! <DEFAULT>\backup.bat[/B]  ****<--- this should be defau;t