کپی فولدر

[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/v...es/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;

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