Date 02/09/97
Author Bianchini Marco <bianco@arcanet.it>
Version 1.0

T_BiancoCopy allow you easilly and fastly copy and / or expand files.


 Properties
  CopyMode:TCOPYMODE
   If cmAsIs then the Executhe method simply copy the SourceFile into the DestinationFile.
   If cmExpand then the Executhe method first try to Expand the source file to
    the Destination, if it can not do this, it will copy the file 'AsIs';
    Note that this function expects to find the source file as a
    standard DOS LZ-compressed file.  (These are the files you find on DOS and
    Windows installation disks that look like "SETUP.EX_".)  You need to use the
    DOS utility COMPRESS to first convert the source file to a COMPRESSed file.
    Unfortunately, Delphi does not come with COMPRESS!  (Why not, Borland?)
    You'll need to grab it from another compiler package (like BP or BC++.)

  SourceFile:STRING
   The Source file name. This file must Exist, it may be any kind of file and it must be
   closed, else the Method Execute return False.

  DestinationFile:STRING
   The Destination file name. This file must not Exist, the path must Exist :
   ExtractFilePath(DestinationFile) must be an existing path.

  LastError:INTEGER
   The Code of the last error occourred. 
   CODE    DESCRIPTION
     0       All Right
     1       Invalid Source File Name
     2       Invalid Destination File Name
     3       The Source And Destination File Coincides
     4       The Source File Do Not Exist
     5       The Destination File Alredy Exist
     6       Other Error
   Sometime the LastError may be = 6
    The possible reasons may be Insufficient Disk Space, 
    File already opened, Path does not exist, and so on...

  SameAttributes:BOOLEAN
   Available only for cmAsIs CopyMode, if true set the same attributes (Date and attributes)
   of the SourceFile to the DestinationFile.

Methods
 Function Execute:BOOLEAN;
  The Execute method copy/expand the SourceFile to the DestinationFile using the 
  current properties setting. If function succeed return True else False.

For More Information
 Open The Demo Project.
 E-Mail Me To : bianco@arcanet.it 

Ciao Marco.


