title image


Smiley Re: mehrere Dateien in eine neue Datei kopieren (oder anhängen einer Datei)


Dim intFile_1 As Integer

Dim intFile_2 As Integer





intFile_1 = FreeFile

Open "C:\Pfad\Datei_1.txt" For Append As #intFile_1



intFile_2 = FreeFile

Open "C:\Pfad\Datei_2.txt" For Input As #intFile_2



Print #intFile_1, Input$(LOF(intFile_2), #intFile_2)



Close #intFile_2

Close #intFile_1


Gruß
Gaga

___________________________________________________________________

Profilösungen für VB6
wenn nicht anders angegeben, sind alle Codebeispiele nicht getestet, nur getippt


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: