Copy files from directory to another directory

 

 

Procedure CopyFileInDirectory ( Source , Destination : String ) ;

Var

   Files       : integer ;

   FSource , FDestination : String ;

   ok          : boolean ;

   Search      : TSearchRec ;

Begin

   Files := FindFirst ( Source + '\*.*' , faAnyFile , Search ) ;

   While Files = 0 Do

   Begin

      If Search.Attr <> faDirectory Then

      Begin

         FSource := Source + '\' + Search.Name ;

         FDestination := Destination + '\' + Search.Name ;

         ok := CopyFile ( PChar ( FSource ) , PChar ( FDestination ) , false ) ;

         If Not ok Then

            ShowMessage ( 'File not copied : ' +

               Search.Name ) ;

      End

      Else

      Begin

         If ( Search.Name <> '.' ) And ( Search.Name <> '..' ) Then

         Begin

            ok := CreateDir ( Destination + '\' + Search.Name ) ;

            If Not ok Then

               ShowMessage ( 'Directory not create : ' +

                  Search.Name )

            Else

               CopyFileInDirectory ( Source + '\' + Search.Name , Destination + '\' + Search.Name ) ;

         End ;

      End ;

      Files := FindNext ( Search ) ;

   End ;

   FindClose ( Search ) ;

End ;

 

Exemplu :

 

CopyFileInDirectory ( 'c:\my web' , 'c:\my work' ) ;