✔ 3 Text Dateien zu einer (VB 6)

[LittleDestroyer]

Hallo,
Ich hab man wieder mit VB angefangen, nun scheitere ich schon am anfang.... -.-

Ich habe 3 Textdateien auf C, ich will sie aber zu einer zusammenfügen.
Wollte es mit "Shell C:\text1.txt+C:\text2.txt+C:\text3.txt C:\text4.txt" Probieren
Nur ging das irgentwie nicht...

Ich will es so einfach wie möglich hinbekommen, kann mir da einer helfen?


MfG LittleDestroyer

 

[wincnc]

Hallo, versuch´s mal so:

Private Sub Command1_Click()
  ExecuteDOS "Copy C:\Text1.txt+C:\Text2.txt+C:\Text3.txt C:\Text4.txt"
End Sub

Private Function ExecuteDOS(ByVal Befehl As String) As Integer
  Dim Kommando  As String
  Dim Result As Integer
  
  Set wshshell = CreateObject("WScript.Shell")
  Set fs = CreateObject("Scripting.FileSystemObject")
  
  Kommando = "%COMSPEC% /C " & Befehl & ""
  Result = wshshell.Run(Kommando, 1, True)
  
  ExecuteDOS = Result
End Function

 

[LittleDestroyer]

Habe inzwischen wo anders hilfe bekommen,
finde so isses viel einfacher:

Private Sub Command1_Click()
Dim A As Integer
Dim Text1 As String
A = FreeFile
Open "c:\text1.txt" For Input As #A
Text1 = Input(LOF(A), 1)
Close #A


Dim B As Integer
Dim Text2 As String
B = FreeFile
Open "c:\text2.txt" For Input As #B
Text2 = Input(LOF(B), 1)
Close #B

Dim C As Integer
Dim Text3 As String
C = FreeFile
Open "c:\text3.txt" For Input As #C
Text3 = Input(LOF(C), 1)
Close #C

Open "Zusammengefügt.txt" For Output As #1
Print #1, Text1
Print #1, Text2
Print #1, Text3
Close #1
End Sub