: EservStorage:RenameFolder { from to \ sqh -- } from STR@ IsShared IF EXIT THEN to STR@ " {CurrentUserFolder}/{s}" STR@ DROP from STR@ " {CurrentUserFolder}/{s}" STR@ DROP MoveFileA 1 <> IF GetLastError DUP . THROW THEN from STR@ to STR@ RenameFolder to STR@ " SELECT NAME from Folders WHERE NAME LIKE '{s}%'" STR@ to STR@ from STR@ " UPDATE sp_messages SET file=replace(file,'/{s}/','/{s}/')" ['] RenameMoveMessages DIR_SQH @ db3_exec ;