کپی فولدر

[N_D]

سلام دوستان
آیا تابعی در دلفی یا API وجود دارد که یک فولدر را به مقصد کپی کند
با تشکر-ناصر

[Mashatan]

اینو از help دلفی اینجا کپی کردم !


The CopyFile function copies an existing file to a new file.

BOOL CopyFile(

LPCTSTR lpExistingFileName, // pointer to name of an existing file
LPCTSTR lpNewFileName, // pointer to filename to copy to
BOOL bFailIfExists // flag for operation if file exists
);


اینم بگیرید چیزی خوبی توش داره :)
http://homepages.borland.com/torry/vcl/filedrv/files/filecpy.zip

[N_D]

با تشکر از شما
من قبلا میخواستم از این تابع استفاده کنم ولی پیغام No decleration میداد شما مطمئن هستید که تابع API فوق کار میکند؟ لطفا نتیجه را به من اطلاع دهید.
پیروز باشید.
ناصر

[shaniaki]

با عرض ادب:

procedure CopyFolder(SrcFolder, DstFolder : String);
var
SearchRec : TSearchRec;
Src, Dst : String;

begin
Src := IncludeTrailingBackslash(SrcFolder);
Dst := IncludeTrailingBackslash(DstFolder);
ForceDirectories(Dst);

if FindFirst(Src + '*.*', faAnyFile, SearchRec) = 0 then
try
repeat
with SearchRec do
if (Name <> '.') and (Name <> '..') then
if (Attr and faDirectory) > 0 then
CopyFolder(Src + Name, Dst + Name)
else
CopyFile(Pchar(Src + Name), PChar(Dst + Name), True);
until FindNext(SearchRec) <> 0;
finally
FindClose(SearchRec);
end ;
end;

یه عشق برنامه نویسی خفن