Dim fs As New FileStream("F:\Work Dev\VSNet Dev\Test\" & fn, _
          FileMode.Open)
        Dim b(fs.Length - 1) As Byte
        fs.Read(b, 0, b.Length)
        fs.Close()

        Dim fs As New FileStream(fn, FileMode.Create, FileAccess.Write, _
          FileShare.None)
        fs.Write(b, 0, l)
        fs.Close()