// // COPYTODAY.VDM Ch. Ziemski 17.05.2001 // // // Copies all files in the current directory that has been modified today // to another directory. // Could be used as a primitive backup. // // // xcopy *.* /d:date directory // Reg_Set(104,"F:\xxx\!test") // modify to your target directory // // Tips: 1) absolute pathname (like "C:\backups") // => ONE single target for all source directories // // 2) relative path (like "backup") // => one DISTINCT target for EVERY current source directory // if(!File_Exist(@104)){ alert() // target must exist, otherwise exit return // (Maybe it's possible to create the directory here ...) } Reg_Set(103, "xcopy *.* /d:") // modify '*.*' to another mask // (and optionally) pathname (but see tips above) Out_Reg(103, APPEND) // add the date of today Date(NOMSG+NOCR) Out_Reg(CLEAR) Reg_Set(103, " ", APPEND) // dividing space Reg_Set(103, @104, APPEND) // add the target dir Sys(@103, DOS+SUPPRESS+SIMPLE) // do it via DOS