Strimmer - Binario

mports System.IO


Public Class CopiaPDFPAOLO

Public Shared Sub Main()
Dim r As BinaryReader
Dim w As BinaryWriter
Dim NomeFileSorg As String
Dim NomeFileDest As String
Try
NomeFileSorg = "C:\Per fare colpo sulla cassiera del bar.doc"
NomeFileDest = "C:\barNEW.doc"
If Dir(NomeFileDest) <> "" Then
Kill(NomeFileDest)
End If


Dim fs As New FileStream(NomeFileDest, FileMode.OpenOrCreate) ' Create the writer for data

Dim fsOriginal As FileStream = New FileStream(NomeFileSorg, FileMode.Open, FileAccess.Read)

r = New BinaryReader(fsOriginal)
w = New BinaryWriter(fs)
Dim I As Integer

While True ' To fsOriginal.Length - 1

I = r.ReadInt32()

w.Write(I)
End While


Catch ecc As EndOfStreamException
Console.WriteLine("fine flusso")

End Try
r.Close()
w.close()

Process.Start("C:\Programmi\Microsoft Office\OFFICE11\Winword.exe", "C:\barNEW.doc")

End Sub

End Class