AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/Monorepo

Browse Source
This commit is contained in:
SchreiberM 2021-03-19 14:05:52 +01:00
commit 97dca56181
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
GUIs.ZooFlow/frmtest.vb
View File

@ -40,14 +40,17 @@ Public Class frmtest
End Sub End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim memString As String = "Memory test string !!!" Using oInputStream As New FileStream(txtIDBFOPath.Text, FileMode.Open)
Dim buffer As Byte() = Encoding.UTF8.GetBytes(memString) Dim oContents(oInputStream.Length) As Byte
oInputStream.Read(oContents, 0, oInputStream.Length)
' convert string to stream ' convert string to stream
Using oMemoryStream As New MemoryStream(buffer) Using oMemoryStream As New MemoryStream(oContents)
Using oFileStream As New FileStream("d:\file.txt", FileMode.Create, FileAccess.Write) Using oFileStream As New FileStream("d:\file.txt", FileMode.Create, FileAccess.Write)
oMemoryStream.WriteTo(oFileStream) oMemoryStream.WriteTo(oFileStream)
End Using End Using
End Using End Using
End Using
End Sub End Sub
End Class End Class