(* Beginning operations *)

maintainInit := (
(* Copying required files *)
dirreq = FileNameJoin[{dirwork, "required", "root"}];
checkdir[dirreq];
SetDirectory[dirreq];
files = FileNames[];
Do[
 If[FileType[file] === File, 
   filedest = FileNameJoin[{dir0, file}];
   If[FileType[filedest] =!= File, CopyFile[file, filedest]]], {file, files}];
(* Copying HTML templates *)
dirsample = FileNameJoin[{dirwork, "templates"}];
checkdir[dirsample];
SetDirectory[dirsample];
files = FileNames[__ ~~ ".htm"];
dirtemplates = FileNameJoin[{dir0, "program", "templates"}];
checkdir1[dirtemplates];
Do[
 If[FileType[file] === File, 
   filedest = FileNameJoin[{dirtemplates, file <> ".txt"}];
   If[FileType[filedest] === File, DeleteFile[filedest]];
   CopyFile[file, filedest]], {file, files}];
(* Printing list of programs *)
maintainPrograms;
);