SUB COPY (SRC$, DST$)
  DIM SRCD, DSTD, I AS LONG, TMP AS INTEGER
  SRCD = FREEFILE: OPEN SRC$ FOR BINARY AS #FREEFILE
  IF LOF(SRCD) = 0 THEN
    PRINT "File not found or lenth <= 0."
    CLOSE SRCD
    EXIT SUB
  END IF
  DSTD = FREEFILE: OPEN DST$ FOR BINARY AS #FREEFILE
  FOR I = 1 TO LOF(SRCD)
    GET SRCD, I, TMP
    PUT DSTD, I, TMP
  NEXT
  CLOSE SRCD, DSTD
END SUB

此帖转自:[url]http://www.programfan.com/team/team.asp?team_id=24[/url]