anchor.diff:        //Assert(not DirectoryExists(aPath));
       {$ENDIF}
     end;
  -end;
  -
  -
  -function IsFilePath(const aPath: UnicodeString): Boolean;
  -begin
  -  // For now we assume, that folder path always ends with PathDelim
  -  Result := RightStr(aPath, 1) <> PathDelim;
   end;
   
   
  
positive.code: 
    function IsFilePath(const aPath: UnicodeString): Boolean;
  
    function IsDirectoryWriteable(const aDir: string): Boolean;
  
    function CreateAndGetDocumentsSavePath: string;
  
negative.code:   KMRenameFilesInFolder(aDestFolder, SrcName, DestName);
  
    Result := True;
  end;
  
  
  function IsFilePath(const aPath: UnicodeString): Boolean;
  begin
    // For now we assume, that folder path always ends with PathDelim
    Result := RightStr(aPath, 1) <> PathDelim;
  end;
  
  
  procedure WriteText(const aText: string; aFilename: string; aEncoding: TEncoding);
  var
    sl: TStringList;
  begin
    sl := TStringList.Create;
    try
      sl.Text := aText;
      sl.SaveToFile(aFilename, aEncoding);
    finally
      sl.Free;
    end;
  end;
  
  
  