title image


Smiley Z. B. so...
Dim ff1 As Integer

Dim ff2 As Integer

Dim ff3 As Integer



Dim datei1 As String

Dim datei2 As String

Dim datei3 As String



Dim inhalt As String



datei1="d:\irgendwas\orginaldatei1.txt"

datei2="d:\irgendwas\orginaldatei2.txt"

datei3="d:\irgendwoanders\zieldatei.txt"



ff1=Freefile()



Open datei1 For Binary As ff1

ff3=Freefile()

Open datei3 For Output As ff3

strInhalt = Space$(LOF(ff1))

Get #ff1, , inhalt

Close ff1



Print #ff3, inhalt



ff2=Freefile()



Open datei2 For Binary As ff2

strInhalt = Space$(LOF(ff2))

Get #ff2, , inhalt

Close ff2



Print #ff3, inhalt



Close ff3



MsgBox "Fertig!"



Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: