title image


Smiley Re: Dateien (txt), mittels VB zu einer zusammensetzen
Dim strFileName As String

Dim strFíle As String



Dim intFile As Integer

Dim lngFileLen As Long



'// einlesen

strFileName = "C:\...\datei1.txt"

intFile = FreeFile

lngFileLen = FileLen(strFileName)



Open strFileName for Input as #intFile

strFíle = strFíle & Input(lngFileLen, intFile)

Close #intFile



strFileName = "C:\...\datei2.txt"

intFile = FreeFile

lngFileLen = FileLen(strFileName)



Open strFileName for Input as #intFile

strFíle = strFíle & Input(lngFileLen, intFile)

Close #intFile



strFileName = "C:\...\datei3.txt"

intFile = FreeFile

lngFileLen = FileLen(strFileName)



Open strFileName for Input as #intFile

strFíle = strFíle & Input(lngFileLen, intFile)

Close #intFile





'// speichern

strFileName = "C:\...\alles.txt"

intFile = FreeFile



Open strFileName for Output as #intFile

Print #intFile, strFíle

Close #intFile









Gruß

Gaga


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: