title image


Smiley Mit Append
Hi,



einfache AppendFunktion:





Private Sub AppendFiles(ByVal destFile As String, ByVal scrFile As String)

Dim f1 As Integer, f2 As Integer

Dim sBuffer As String



If Dir(destFile) = "" Or Dir(scrFile) = "" Then Exit Sub



f1 = FreeFile

Open destFile For Append As #f1

f2 = FreeFile

Open scrFiele For Binary As #f2



sBuffer = Space(LOF(f2))

Get #f2, , sBuffer

Print #f1, sBuffer

Close #f1, #f2

End Sub



Aufruf: AppendFiles(Zieldatei, Quelldatei)



Es ist egal, wieviele Files Du anhängen willst.


Programmierst Du noch frei oder wirst Du schon von Microsoft verwaltet ( .NET)?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: