if file('tovwind.rar')
	FileNameWhence = "tovwind.rar" 
	FileNameWhere = "a:\tovwind.rar" 
	cCaption = 'Триває запис на дискету' 
*	cText = FileNameWhence + ' -> ' + FileNameWhere 
	cText = ''
	DECLARE INTEGER CopyFileProgress IN CopyFile.DLL STRING, STRING, STRING, STRING, INTEGER 
	IF CopyFileProgress(FileNameWhence,FileNameWhere,cCaption,cText, 2 ) =  1  
		MESSAGEBOX ('Помилка запису на диск!', 0 + 16 ,'Помилка') 
	endif 
	
	FileNameWhence = "tovwind.rar" 
	FileNameWhere = "a:\reserv\tovwind.rar" 
	cCaption = 'Триває запис резервної копії на дискету' 
	cText = ''
	IF CopyFileProgress(FileNameWhence,FileNameWhere,cCaption,cText, 2 ) =  1  
		MESSAGEBOX ('Помилка запису на диск!', 0 + 16 ,'Помилка') 
	endif 
	CLEAR DLLS 
*	copy file tovwind.rar to a:\tovwind.rar
*	if !DIRECTORY('a:\reserv')
*		md a:\reserv
*	endif
*	copy file tovwind.rar to a:\reserv\tovwind.rar
else
	MESSAGEBOX("Помилка архівування!", 0  +  16  +  0 ,'Сервер')
endif
set default to &fpath