Delphi 7 - kopírování celé složky se soubory

Od: Datum: 27.06.14 20:50 odpovědí: 1 změna: 28.06.14 00:06

Dobrý den,

Měl bych otázku. Programuji v delphi a potřebuji kliknutím na tlačítko zkopírovat pevně zvolenou složku s podsložkami a soubory v těch podsložkách. Názvy se líší pouze u souborů (textového typu), kterých je ale mraky. Způsobem, jakým bych to udělal já to nepřipadá v úvahu, jelikož by byl hrozně složitý a dlouhý, musí existovat nějaký příkaz, kam zadám název složky-cestu (kterou chci kopírovat) a zkopíruji jí i s celým obsahem ... třeba na plochu...

Za rady velice děkuji...


Seznam odpovědí:
 
moment čekejte prosím, probíhá přenos dat...
Zobrazení struktury odpovědí v otázce
Skrytí struktury odpovědí v otázce
Zobrazení struktury odpovědí v otázce

 

Odpovědi na otázku:
Od: tanker32*
Datum: 28.06.14 00:06

Zdáreček,

můžeš ve svém kódu použít podprogram na který budeš poukazovat a kde můžeš kopírovat strukturu adresářů včetně obsahu:

function CopyDirectory(WindowHandle: HWND; FilenameFrom: string; FilenameTo: string): Boolean;

var

SH: TSHFILEOPSTRUCT;

begin FillChar(SH, SizeOf(SH), 0);

with SH do

begin

Wnd := WindowHandle;

wFunc := FO_COPY;

pFrom := PChar(FilenameFrom + #0);

pTo := PChar(FilenameTo + #0);

fFlags := FOF_NOCONFIRMMKDIR or FOF_NOCONFIRMATION or FOF_SILENT or FOF_NOERRORUI;

end;

Result := SHFileOperation(SH) = 0;

Result := Result and (not SH.fAnyOperationsAborted);

end;

a nebo použít příkaz CopyFileEx; celý popis příkazu je zde:

http://msdn.microsoft.com/en-us/library/windows/desktop/aa363851(v=vs.85).aspx

Petr

Ohodnoceno: 0x
 

 

 

Přihlásit se k odběru odpovědí z této otázky:

Neneseme odpovědnost za správnost informací a za škodu vzniklou jejich využitím. Jednotlivé odpovědi vyjadřují názory jejich autorů a nemusí se shodovat s názorem provozovatele poradny Poradte.cz

 
Copyright © 2004-2016 Poradna Poradte.cz. Všechna práva na poradně Poradte.cz vyhrazena.