Udokanec писал(а): Вместе с дубликатами очищает все папки
Попробовал несколько раз. У меня удаляются только те файлы, которые в списке дубликаты.
Выбери папку - "drawable-ldpi" и посмотри сколько дубликатов и сколько удалит.
Add(Button,1032059,49,154) { Left=45 Top=10 Width=95 Caption="Выбратьпапку" link(onClick,15679354:doEvent1,[]) } Add(Button,1454278,455,308) { Left=300 Top=10 Width=140 Caption="Найти дубликаты" link(onClick,8782185:doEvent1,[]) } Add(FileSearch,9717498,714,196) { Ext="*.png" TimeType=1 link(onSearch,3582628:doPart,[]) link(onEndSearch,8658984:doData,[(781,209)(781,279)]) } Add(MainForm,11209390,329,14) { Width=977 Height=479 } Add(Memo,2318742,917,252) { Left=270 Top=75 Width=195 Height=260 ScrollBars=3 ReadOnly=0 } Add(Memo,10164561,987,210) { Left=490 Top=75 Width=405 Height=260 ScrollBars=3 ReadOnly=0 link(Str,14001984:Value,[(993,201)(967,201)(967,355)(741,355)]) } Add(FilePartElm,3582628,791,196) { link(onPart,8494641:doAdd,[]) } Add(FileSearch,6566935,553,315) { Ext="*.png" TimeType=1 link(onSearch,4180243:doCompare,[]) link(Dir,10153823:Var2,[]) } Add(StrList,8494641,854,196) { Point(doGetIndex) Point(onGetIndex) link(onGetIndex,15132075:doCompare,[]) } Add(DoData,8658984,854,273) { link(onEventData,2318742:doText,[]) link(Data,8494641:Text,[]) } Add(Memory,14001984,735,315) { link(onData,8211724:doPart,[]) } Add(FilePartElm,8211724,798,315) { link(onPart,8494641:doGetIndex,[(844,321)(844,230)]) } Add(If_else,15132075,917,203) { Op2=Integer(-1) link(onFalse,10164561:doAdd,[]) } Add(FileTools,539386,1057,399) { link(onEnd,10407144:doData,[]) link(FileName,10396108:Item,[(1063,390)(1049,390)(1049,460)(1007,460)]) } Add(StrMask,13872315,294,161) { Mask="*drawable*" Point(doMask) link(onTrue,10491973:doCompare,[]) } Add(StrMask,10491973,343,168) { Mask="*hdpi*" Point(doMask) link(onFalse,8824824:doCompare,[(387,174)(387,146)]) link(onTrue,132297:doWork2,[]) } Add(StrMask,8824824,399,140) { Mask="*mdpi*" Point(doMask) link(onFalse,7082500:doCompare,[]) link(onTrue,132297:doWork1,[(438,153)]) } Add(HubEx,132297,434,175) { link(onEvent,9455963:doWork2,[]) } Add(StrMask,7082500,455,140) { Mask="*ldpi*" Point(doMask) link(onTrue,9455963:doWork1,[(501,153)]) } Add(HubEx,9455963,497,175) { link(onEvent,5935476:doAdd,[]) } Add(FileSearch,14184120,238,161) { FullName=1 Include=1 link(onSearch,13872315:doCompare,[]) } Add(Browse,5449089,147,161) { Title="Папка где искать дубликаты" NewStyle=0 NewDirButton=1 link(onBrowse,8494145:doText,[]) } Add(Edit,8494145,196,161) { Left=35 Top=40 Width=195 Text="" link(onChange,14184120:doSearch,[]) } Add(FormatStr,12548257,616,196) { Mask="%2\\res\%1" Point(FString) link(onFString,9717498:doSearch,[]) link(Str2,10153823:Var1,[(629,173)(566,173)]) } Add(Label,5275819,371,21) { Left=60 Top=375 Width=147 Height=27 Caption="Выбор эталонной папки\r\nВыделить элемент" } Add(ListBox,5935476,518,175) { Left=35 Top=75 Width=205 Height=260 Hint="Выбор эталонной папки\r\nВыделить элемент" DataType=1 Point(String) link(onClick,4796137:doEvent1,[]) } Add(Hub,15679354,112,154) { link(onEvent1,10052181:In,[(137,160)(137,146)]) link(onEvent2,5449089:doBrowse,[]) } Add(LineBreak,8460923,469,189) { link(Out,5935476:doClear,[(508,195)(508,188)]) Primary=[10052181,-315,-49] } Add(Hub,4796137,574,182) { link(onEvent1,8494641:doClear,[(830,188)(830,209)]) link(onEvent2,12548257:doString,[(606,195)(606,202)]) } Add(StrMask,4180243,679,315) { Point(doMask) link(onFalse,14001984:doValue,[]) } Add(StrCatDelim,13696455,616,322) { Delimiter="\" Str2="*" link(onStrCatDlm,4180243:doMask,[]) link(Str1,12548257:FString,[]) } Add(Hub,8782185,504,308) { link(onEvent1,13696455:doStrCatDlm,[(592,314)(592,328)]) link(onEvent2,6566935:doSearch,[]) } Add(GetDataEx,10153823,560,210) { Angle=3 link(Data,8494145:Text,[(202,215)]) } Add(Button,10652088,889,406) { Left=585 Top=10 Width=215 Caption="Удалить лубликаты" link(onClick,3359661:doMessage,[]) } Add(Message,3359661,945,406) { Message="Вы уверены что нужно удалить эти файлы" Type=2 Point(onYES) link(onYES,10396108:doEnum,[]) } Add(ArrayEnum,10396108,1001,413) { Type=1 link(onItem,539386:doDelete,[]) link(Array,10164561:Array,[]) } Add(DoData,10407144,1113,399) { link(onEventData,10164561:doDelete,[(1152,405)(1152,384)(977,384)(977,230)]) link(Data,10396108:Index,[(1119,390)(1105,390)(1105,453)(1014,453)]) }
|