Вверх ↑
Ответов: 775
Рейтинг: 168
#1: 2023-07-06 08:56:41 ЛС | профиль | цитата
Stalevar, Если файлов в папке много или они большие, то лучше воспользоваться Robocopy.exe.

Add(MainForm,14528908,70,175)
{
Width=674
}
Add(FormatStr,15087759,294,189)
{
Mask="%1 %2 /MIR /R:2 /W:5"
link(onFString,12242680:doWork2,[])
link(Str1,1068128:Text,[])
link(Str2,6743093:Var3,[(307,75)])
}
Add(WinExec,12453211,357,175)
{
FileName="Robocopy.exe"
Mode=0
Point(doConsoleExec)
Point(onConsoleResult)
link(onConsoleResult,5714880:doCharset,[])
}
Add(Memo,8063006,469,189)
{
Width=658
Height=261
Align=5
ScrollBars=3
}
Add(Charset,5714880,413,189)
{
link(onCharset,8063006:doAdd,[])
}
Add(VisualStrings,1068128,294,140)
{
Lines=#11:D:\\1\\55\\|
Width=270
}
Add(MenuEx,4335112,154,182)
{
EndItemRight=0
Menu=#20:Остановить программы|22:Обновить рабочую папку|18:Помощь по Robocopy|
Bitmaps=[]
link(MenuItemIdx,12701330:doEvent,[])
}
Add(IndexToChanel,12701330,210,182)
{
Count=3
link(onEvent1,1141268:doSearch,[(249,188)(249,90)])
link(onEvent2,15087759:doString,[])
link(onEvent3,7300171:doData,[(277,202)(277,244)])
}
Add(FileSearch,1141268,280,84)
{
link(onSearch,6761913:doPart,[])
link(Dir,6743093:Var2,[])
}
Add(VisualStrings,10168351,287,28)
{
Lines=#11:D:\\2\\55\\|
Width=256
}
Add(FilePartElm,6761913,343,84)
{
link(onPart,16267119:doFindName,[])
}
Add(GetDataEx,6743093,287,70)
{
link(Data,10168351:Text,[])
}
Add(DoData,7300171,294,238)
{
Data=String(/?)
link(onEventData,12242680:doWork3,[(340,244)])
}
Add(HubEx,12242680,336,189)
{
link(onEvent,12453211:doConsoleExec,[])
}
Add(EnumProcess,16267119,406,63)
{
Point(Name)
Point(doFindName)
Point(onFind)
Point(onTerminateApp)
Point(onNotFind)
Point(onEndEnum)
link(onFind,16267119:doKill,[(445,76)(445,55)(396,55)(396,83)])
}

карма: 15

2
Голосовали:ric, Stalevar