Можно ли переслать директорию?

← →
Александр из Минска (2003-09-07 14:26) [0]

Можно ли переслать с компа на комп по локалке директорию со всем ее содержимым, не используя рекурсивный поиск (не перекидывая по файлу)?

← →
NikB (2003-09-07 16:33) [1]

Mojno posmotret eto i poljzovatj osnovu:
{}function FolderCopy(hWin: tHandle; sFolderFrom, sFolderTo: string; flRenameOnCollision: boolean): boolean; // ShFileOperation(fos)
var
fos : tSHFileOpStruct;
xsFolderFrom, xsFolderTo : string;
l : integer;
begin

if (sFolderFrom<>"") and (sFolderTo<>"") and (sFolderFrom<>sFolderTo) then begin
if DirectoryExists(sFolderFrom) then begin

Result:=false;

l:=length(sFolderFrom); if sFolderFrom[l]="\" then system.delete(sFolderFrom,l,1);
l:=length(sFolderTo); if sFolderTo[l]="\" then system.delete(sFolderTo,l,1);

xsFolderFrom := sFolderFrom+#0;
xsFolderTo := sFolderTo+#0;

FillChar(fos,SizeOf(fos),0);
with fos do begin
Wnd := hWin;
wFunc := fo_Copy;
pFrom := pChar(xsFolderFrom);
pTo := pChar(xsFolderTo);
fFlags := fof_MultiDestFiles+fof_NoConfirmation+fof_NoConfirmMkDir;
if flRenameOnCollision then begin
fFlags:=fFlags or fof_RenameOnCollision;
end;
end;
try
Result := (ShFileOperation(fos)=0);
except
end;
end else Result:=true;
end else Result:=true;
end;

← →
Александр из Минска (2003-09-07 19:40) [2]

Или я не понял вас, или вы меня, но я хочу одним махом перекинуть директорию с компа на комп с помощью TIDTCPClien, TIDTCPServer...

← →
Администратор (2003-09-07 19:53) [3]

Ты возми на компьютере 1 сжимай необходимую папку (можно и зашифровать) и пересылай, а на компьютере 2 папку расжимай и всё.

← →
Anatoly Podgoretsky (2003-09-07 20:00) [4]

Это ты не понял нас, эта конференция не Сети

← →
Anatoly Podgoretsky (2003-09-07 20:02) [5]

Извиняюсь ошибся, это мы тебя не поняли, но чем тебя ответ
NikB (07.09.03 16:33) [1] не устраивает, это работает даже через Интернет.

← →
Александр из Минска (2003-09-08 15:56) [6]

Всем спасибо! Буду паковать и распаковывать.

Можно ли переслать директорию? Найти похожие ветки