Backup routine after WINXP reinstall 1

[wetton]

I have the follwomh backup routine prg gleaned form these pages some time ago. I have been using it many times a day as my app progresses. I had to reinstall WINXP two days ago.

The routine still runs and copies some of the files in the folder then the debugger opens on the line marked <-------
in the below code.

CLOSE ALL DATABASES

public changes
changes = ''

do form frmbackup  &&  use text box to annotate backup folder


changes = '  '+alltrim(changes)

*-- Getting the date as yyyymmdd is easy. 
lcToday = DTOS(DATE()) 

*-- The time has colons between hours, minutes, and seconds. 
*-- These are illegal in a file name so change them to underscores. 
lcNow = CHRTRAN(TIME(), ':', '-') 
lcTimeStamp = lcToday + '_at_' + subst(lcNow,1,5) 
lcDevDir = 'C:\DEV\_Foxpro\Projects\Myproject' 

*-- The folder 'C:\R_Drive\Backup\must exist 
lcBackupDir = 'C:\R_Drive\Backup\Myproject\' + lcTimeStamp + changes

fso= CREATEOBJECT ('Scripting.FileSystemObject') 
fso.CopyFolder (lcDevDir, lcBackupDir) <--------------
fso = null



?'Finished'

Any one any clues?

Thanks PW

 

[wetton]

Further - I should have added that an error message appears

OLE error code 0x800a0046 Unknown COM status code

Thanks

PW

 

[Mike Lewis]

Hi PW,

I can't answer your question for sure, but I'll make a few guesses:

- One of the source files is open at the time you are trying to copy it (open in your application or somewhere else).

- A problem with permissions.

- Insufficient space in the target folder.

I suggest you try to figure out which file is being copied at the time the error occurs. Try removing that file from the source folder and see what effect that has.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[wetton]

Mike

After the new install my resource file was back in the \App Dev folder instaed of 1 level above in Projects.

I thought I recognised the error - I guess I had it before and solved it myself but I'm older now <G>

PW

 

[Mike Lewis]

PW,

I thought it would be something simple. Glad you've got it sorted.

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk