Ë¼ Â· : °´ ¶þ ½ø ÖÆ ¶Á È¡ Ô´ ÎÄ ¼þ µÄ Ç° (Ô´ ÎÄ ¼þ µÄ ×Ö ½Ú Êý -N)¸ö ×Ö ½Ú ,Ð´ Èë Ä¿ ±ê ÎÄ ¼þ ¡£ 
     Ä¿ ±ê ÎÄ ¼þ sFilename ¼´ Îª Ëù Çó ¡£ Very easy! ´ú Âë Èç ÏÂ : 
     Sub MyFileCopy(sFileName0 As String, sFilename As String, Optional N As Long = 0) 
     'µ± N=0Ê± ,¼´ Îª Copy 
     Const KB = 1024 
     Dim nKB As Long 
     nKB = 64 
     Dim FileBuffer() As Byte 
     Dim FileNumberS As Long 
     Dim FileNumberT As Long 
     Dim lFileLen As Long 
     lFileLen = FileLen(sFileName0) - N 
     FileNumberS = FreeFile 
     Open sFileName0 For Binary Access Read As #FileNumberS 
     FileNumberT = FreeFile 
     Open sFilename For Binary Access Write As #FileNumberT 
     ReDim FileBuffer(1 To (nKB * KB)) As Byte 'Éè ÖÃ »º ³å Çø ´ó Ð¡ Îª 64K 
     'Èô ÓÃ Do Until LOF(FileNumber) 
     ' ... 
     ' Loop Óï ¾ä , 
     '²» ·½ ±ã ,¸´ ÔÓ ! 
     Do While lFileLen >= (nKB * KB) 
     Get #FileNumberS, , FileBuffer 
     Put #FileNumberT, , FileBuffer 
     lFileLen = lFileLen - (nKB * KB) 
     Loop 
     If lFileLen > 0 Then 
     ReDim FileBuffer(1 To lFileLen) As Byte 
     Get #FileNumberS, , FileBuffer 
     Put #FileNumberT, , FileBuffer 
     End If 
     Close #FileNumberS 
     Close #FileNumberT 
     MsgBox "End!" 
     End Sub 
     Èô ÎÄ ¼þ ²» ´ó ,¿É Ö± ½Ó ¶Á Ð´ Ò» ´Î ÎÄ ¼þ : 
     ... 
     ReDim FileBuffer(1 To lFileLen-N) As Byte 
     Get #FileNumberS, , FileBuffer 
     Put #FileNumberT, , FileBuffer 
     ... 
<END>
