From d9303018707ec176a2b1a92fc64679ca43e9d329 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Fri, 19 Mar 2021 14:03:33 +0100 Subject: [PATCH] ZooFlow: fix frmtest --- GUIs.ZooFlow/frmtest.vb | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/GUIs.ZooFlow/frmtest.vb b/GUIs.ZooFlow/frmtest.vb index aaf6586e..ff4b397f 100644 --- a/GUIs.ZooFlow/frmtest.vb +++ b/GUIs.ZooFlow/frmtest.vb @@ -40,14 +40,17 @@ Public Class frmtest End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click - Dim memString As String = "Memory test string !!!" - Dim buffer As Byte() = Encoding.UTF8.GetBytes(memString) - - ' convert string to stream - Using oMemoryStream As New MemoryStream(buffer) - Using oFileStream As New FileStream("d:\file.txt", FileMode.Create, FileAccess.Write) - oMemoryStream.WriteTo(oFileStream) + Using oInputStream As New FileStream(txtIDBFOPath.Text, FileMode.Open) + Dim oContents(oInputStream.Length) As Byte + oInputStream.Read(oContents, 0, oInputStream.Length) + + ' convert string to stream + Using oMemoryStream As New MemoryStream(oContents) + Using oFileStream As New FileStream("d:\file.txt", FileMode.Create, FileAccess.Write) + oMemoryStream.WriteTo(oFileStream) + End Using End Using End Using + End Sub End Class \ No newline at end of file