Help with VBScript date

[Gasman]

For my benefit please, what does this do?

Do until i > 0 Date()

 

[isladogs]

That was the line I picked up and why I asked if it actually worked

 

[jocph]

I was hasty with the previous answer I did not try all possibilities. It seems it was doing the job too good that the backups are being done even before one week has passed.

Anyway, I simplified it and hope this I have it correct this time

'If at least one week has passed since last backup, do the backup on the first opportunity
dteCounter = dteCounter + 7

    IF Date() >= dteCounter Then
        BackupData()
    End If