zackmark29
Active member
- Joined
- Apr 21, 2020
- Messages
- 28
- Programming Experience
- Beginner
Hey guys could someone help me fix this codes?
I'm getting a little problem. The output isn't merging the input files
I'm getting a little problem. The output isn't merging the input files
VB.NET:
Private Sub CopyMyFiles()
Dim inputFolder As String = txtSource.Text
Dim outputFolder As String = txtOutputFolder.Text + "\" + txtOuputFilename.Text + ".ts"
Dim enumFiles = Directory.EnumerateFiles(inputFolder, "*.ts").ToArray
For Each files In enumFiles
Dim input As FileStream = New FileStream(files, FileMode.Open, FileAccess.ReadWrite, FileShare.Read, FileOptions.SequentialScan)
Dim output As FileStream = New FileStream(outputFolder, FileMode.Create, FileAccess.Write, FileShare.ReadWrite, FileOptions.SequentialScan)
CopyStream(input, output)
Next
End Sub
Public Shared Sub CopyStream(inputStream As Stream, outputStream As Stream)
Dim buffer = New Byte(1025) {}
Dim bytesRead As Integer
bytesRead = inputStream.Read(buffer, 0, buffer.Length)
While bytesRead > 0
outputStream.Write(buffer, 0, bytesRead)
bytesRead = inputStream.Read(buffer, 0, buffer.Length)
End While
outputStream.Flush()
inputStream.Close()
outputStream.Close()
End Sub