From 02630aa1dacbd22ec69c65aa6cf217597c006685 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 18 Mar 2021 15:13:38 +0100 Subject: [PATCH] ns --- GUIs.ZooFlow/frmtest.vb | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/GUIs.ZooFlow/frmtest.vb b/GUIs.ZooFlow/frmtest.vb index a693dd87..8d0d1ded 100644 --- a/GUIs.ZooFlow/frmtest.vb +++ b/GUIs.ZooFlow/frmtest.vb @@ -39,12 +39,13 @@ 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 !!!" - ' convert string to stream - Dim buffer As Byte() = Encoding.ASCII.GetBytes(memString) - Dim ms As New MemoryStream(buffer) + + Dim oStream As New FileStream(txtIDBFOPath.Text, FileMode.Open) + Dim oContents(oStream.Length) As Byte + + Dim ms As New MemoryStream(oContents) 'write to file - Dim file As New FileStream("d:\file.txt", FileMode.Create, FileAccess.Write) + Dim file As New FileStream("e:\file.pdf", FileMode.Create, FileAccess.Write) ms.WriteTo(file) file.Close() ms.Close()