home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pcmagazi
/
1991
/
08
/
bkp.prg
< prev
next >
Wrap
Text File
|
1991-03-03
|
778b
|
32 lines
*
* Name BKP.PRG
*
CLEAR
crlf = "CHR(13) + CHR(10)"
DO MainWork
RETURN
PROCEDURE MainWork
STORE DTOC(DATE()) to today
DO FileWork WITH today
RETURN
PROCEDURE FileWork
************************************************
* Creates a batch file for backing up *
************************************************
PARAMETERS date
str1 = "XCOPY C:\SAS\*.* F:\SAS /D:"+date
str2 = "XCOPY C:\SAS\PRT\*.* F:\SAS\PRT /D:"+date
str3 = "XCOPY C:\SAS\AL\*.* F:\SAS\AL\ /D:"+date
DO WHILE .T.
buffer = "@echo off"+&crlf+str1+&crlf+str2+&crlf+str3+&crlf+CHR(26)
fhandle = FCREATE("c:\bakkup.bat",0)
bytesret = FWRITE(fhandle, buffer)
result = FCLOSE(fhandle)
exit
ENDDO
RETURN
* eof