copy

Function CopyFile (src As String, dst As String) As Single 'L. Serflaten 1996 Static Buf$ Dim BTest!, FSize! Dim Chunk%, F1%, F2% Const BUFSIZE = 1024 'This routine will copy a file while providing a means 'to support a percent gauge. Ex. your display routine 'is called "PercentDone" and...