Home

Add

Edit

Without Linenumbers

Code in Textfield


  1. Function copy(fromfile As String, tofile As String) As Integer
    
  2. 'eingabe öffnen
    
  3. Dim TInFN As Integer = Freefile
    
  4. If Open(fromfile For Binary As #TINFN) <> 0 Then Return -1
    
  5. 
    
  6. 'ausgabe öffnen
    
  7. Dim TOutFN As Integer = Freefile
    
  8. If Open(tofile For Binary As #TOUTFN) <> 0 Then Close #TINFN: Return -1
    
  9. 
    
  10. Dim TMax As Uinteger = Lof(TInFN)       'eingabelänger ermitteln
    
  11. Dim TBlockSize As Ushort = 8092         'blockgröse beim kopieren festlegen (je gröser, desto schneller, allerdings auch blockierender bei hintergrundeingaben)
    
  12. Dim TBuffer As String = Space(TBlockSize) 'speicher auf maximale blockgröse vergrössern
    
  13. 
    
  14. For X As Uinteger = 1 To TMax Step TBlockSize       'schleife in blockgrösenschritte durchgehen
    
  15.     If X + TBLockSize > TMax Then TBuffer = Space(TMax - X + 1)     'wenn position + nächste blockgröse, über länger von file, dan puffer verkürzen
    
  16.     Get #TINFN, X, T    'einlesen
    
  17.     Put #TOUTFN, X, T   'schreiben
    
  18. Next
    
  19. Close #TOUTFN   'schliessen
    
  20. Close #TINFN    '...
    
  21. Return 1
    
  22. End Function