Пример: на диске С:/1 просмотр всей папки и потом с копировать в С:/1/temp или переместить
Make(delphi)
Add(MainForm,2806055,21,105)
{
Left=20
Top=105
Width=638
}
Add(FileSearch,7957369,266,189)
{
SubDir=1
FullName=1
Include=2
link(onSearch,12836302:doEvent1,[])
link(Dir,4744190:Data1,[])
}
Add(Edit,4111605,273,49)
{
Left=80
Top=25
Width=270
Text="C:/1"
}
Add(Label,13261640,112,7)
{
Left=80
Top=5
Width=177
Height=17
Caption="В какой дериктории делать поиск"
}
Add(DirTools,10954075,630,210)
{
Point(doRename)
link(Source,3794614:FString,[(636,198)(559,198)(559,268)(482,268)])
link(Dest,1449387:FString,[(643,172)(475,172)])
}
Add(GetData,4744190,273,112)
{
link(Data,4111605:Text,[])
}
Add(Label,4103685,70,7)
{
Left=80
Top=55
Width=174
Height=17
Caption="Куда перемещать файлы и папки"
}
Add(FormatStr,1449387,469,119)
{
Mask="%2/%1"
Point(FString)
link(onFString,4709131:doAdd,[])
link(Str1,11025099:Value,[(475,107)(447,107)(447,156)(412,156)])
link(Str2,5491385:Text,[])
}
Add(Edit,5491385,476,42)
{
Left=80
Top=75
Width=280
Text="C:/1/temp"
}
Add(ListBox,4709131,532,119)
{
Left=75
Top=105
Width=445
Height=100
Enabled=1
link(onChange,3536705:doCompare,[])
}
Add(Button,134818,189,189)
{
Left=5
Top=20
Caption="Пуск"
link(onClick,7957369:doSearch,[])
}
Add(FormatStr,3794614,476,224)
{
Mask="%2/%1"
Point(FString)
link(onFString,1449387:doString,[(520,230)(520,162)(455,162)(455,125)])
link(Str2,4744190:Data2,[(489,182)(286,182)])
}
Add(Hub,12836302,329,189)
{
link(onEvent1,11025099:doValue,[(387,195)(387,118)])
link(onEvent2,3794614:doString,[(416,202)(416,230)])
}
Add(Memory,11025099,406,112)
{
}
Add(If_else,3536705,581,119)
{
Op2=String(temp)
link(onFalse,10954075:doCopy,[(618,132)(618,216)])
}