Syncovery Support Forum

Code: Select all

function OnBeforeFileCopy(const DirectionIsL2R:Boolean;
        var Source,Dest,DestPath,LeftSubPath,RightSubPath:UnicodeString):Boolean;
var SourceFN,Year,Month,AddFolderName,NewDestPath,NewDest,NewRightSubPath:UnicodeString;
    Age:Double;
begin
  Result:=true;
  if not DirectionIsL2R then
     Exit; 
  SourceFN:=ExtractFileName(Source);
  Age:=FileToCopyLeftModified;
  Year:=IntToStr(YearOf(Age));
  Month:=IntToStr(MonthOf(Age));
  AddFolderName:=Year+'-'+Month;
  NewDestPath:=ConcatPathWithDelim(RightBasePath,AddFolderName,PathDelim);
  NewDest:=ConcatPathWithDelim(NewDestPath,ExtractFileName(Dest),PathDelim);
  NewRightSubPath:=IncludeLeadingPathDelim(AddFolderName);
 
  if not MakeSurePathExists(NewDestPath,true) then begin
     Log('Could not create '+NewDestPath);
     Exit;
     end;
 
  Dest:=NewDest;
  DestPath:=NewDestPath;
  RightSubPath:=NewRightSubPath;
  end;


function OnBeforeFolderCreate(const DirectionIsL2R:Boolean;
        var Source,Dest,Reason:UnicodeString):Boolean;
begin
  Result:=false;
  end;