Расшифровка отдельного файла TS, зашифрованного с помощью AES

Question

Здравствуйте, у меня есть этот код, но он автоматически объединяет файлы ts в один файл. Я просто хочу расшифровать их по отдельности с помощью ключа

Dim folder As String = txtSource.Text
            Dim encryptionKey As Byte() = File.ReadAllBytes(txtKey.Text)
            Dim outputFile As String = (txtFilePath.Text + "\" + txtFileName.Text + ".ts")

            Using outputFileStream As FileStream = New FileStream(outputFile, FileMode.Create)

                Dim files = Directory.GetFiles(folder, "*.ts")
                For i As Integer = 0 To files.Length - 1
                    Dim encryptionIV As Byte() = New Byte(15) {}
                    Using inputFileStream As FileStream = New FileStream(files(i), FileMode.Open)

                        Using aes = New AesManaged With {
                            .Key = encryptionKey,
                            .IV = encryptionIV,
                            .Mode = CipherMode.CBC
                        }

                            Using encryptor = aes.CreateDecryptor()

                                Using cryptoStream = New CryptoStream(inputFileStream, encryptor, CryptoStreamMode.Read)

                                    cryptoStream.CopyTo(outputFileStream)

                                End Using
                            End Using
                        End Using
                    End Using
                Next
            End Using

        Catch ex As Exception

        End Try