*MyCopyFile lparameters tcSource, tcTarget local SourceHandle, TargetHandle, lnSize, lnBlockSize lnBlocksize = 0xFFFF SourceHandle=fopen(tcSource) lnSize = fseek(SourceHandle,0,2) *Set bar max to lnSize =fseek(SourceHandle,0,0) && Reposition to bof TargetHandle=fcreate(tcTarget) do while !feof(SourceHandle) myBar.Value = myBar.Value + fwrite(TargetHandle, ; fread(SourceHandle,lnBlockSize), lnBlockSize) * Update bar value to value+Byteswritten enddo =fclose(SourceHandle) =fclose(TargetHandle)Pls note that there is no error checking here.