Private sub fsubFileCopy( ByVal pstrQuelldatei as String, ByVal pstrZieldatei _
  as String )
 
  1. Quelldatei öffnen
 
  2. Zieldatei öffnen
 
  3. Daten kopieren von 1 nach 2
 
  4. Dateien schliesen
 
End sub

MfG Liechte
-------------------------------------------------------------------
Wir h?ren nicht auf zu spielen weil wir alt werden,
wir werden alt wenn wir aufh?ren zu spielen
-------------------------------------------------------------------