(* Beginning operations *) maintainInit := ( (* Copying required files *) dirreq = ToFileName[{dirwork, "required", "root"}]; checkdir[dirreq]; SetDirectory[dirreq]; files = FileNames[]; Do[ If[FileType[file] === File, filedest = ToFileName[dir0, file]; If[FileType[filedest] =!= File, CopyFile[file, filedest]]], {file, files}]; (* Copying HTML templates *) dirsample = ToFileName[dirwork, "templates"]; checkdir[dirsample]; SetDirectory[dirsample]; files = FileNames[__ ~~ ".htm"]; dirtemplates = ToFileName[{dir0, "program", "templates"}]; checkdir1[dirtemplates]; Do[ If[FileType[file] === File, filedest = ToFileName[dirtemplates, file <> ".txt"]; If[FileType[filedest] === File, DeleteFile[filedest]]; CopyFile[file, filedest]], {file, files}]; (* Copying old picture montages for spbmyco.ru *) dirsample = ToFileName[{dirwork, "required", "images", "montage"}]; checkdir[dirsample]; SetDirectory[dirsample]; files = FileNames[__ ~~ ".jpg"]; dirtemplates = ToFileName[{dir0, "images", "montage"}]; checkdir1[dirtemplates]; Do[ If[FileType[file] === File, filedest = ToFileName[dirtemplates, file]; If[FileType[filedest] === File, DeleteFile[filedest]]; CopyFile[file, filedest]], {file, files}]; dirsample = ToFileName[{dirwork, "required", "pic90"}]; checkdir[dirsample]; SetDirectory[dirsample]; files = FileNames[__ ~~ ".jpg"]; dirtemplates = ToFileName[{dir0, "pic90"}]; checkdir1[dirtemplates]; Do[ If[FileType[file] === File, filedest = ToFileName[dirtemplates, file]; If[FileType[filedest] === File, DeleteFile[filedest]]; CopyFile[file, filedest]], {file, files}]; (* Printing list of programs *) maintainPrograms; );