Ó£Ö®»¨

 ÕâÊÇÎÒдµÄÔÚdoNetÏÂÁ½¸öºÜʵÓõĺ¯Êý½øÐÐÎļþµÄ¶þ½øÖÆת»»£¬¿ÉÒÔÓ¦ÓÃÓÚ½«Îļþ´æ´¢µ½Êý¾Ý¿âÖУ¬»òÕßͨ¹ý¶þ½øÖÆÁ÷´«ËÍÎļþ£¬Ï£Íû¿ÉÒÔ¸ø´ó¼Ò´øÀ´°ïÖú¡£

  '½«ÎļþÒÔ¶þ½øÖÆÁ÷ÐÎʽ¶ÁÈëByteÊý×é
    '=============================================
    Public Function RetFile() As Byte()
        Dim BA() As Byte
        Dim FS As New IO.FileStream("C:\hello.doc", IO.FileMode.Open)

        'Dim MS As New IO.MemoryStream
        Dim FR As New IO.BinaryReader(FS)
        BA = FR.ReadBytes(FS.Length)
        FR.Close()
        FS.Close()
        Return BA
    End Function

    '½«ByteÊý×éдÈëÎļþ
    '=============================================
    Private Sub SaveNewFile(ByVal ibuf() As Byte)
        Dim FS As New IO.FileStream("C:\HelloEric.doc", IO.FileMode.CreateNew)
        ' Create the writer for data.
        Dim w As New IO.BinaryWriter(FS)
        ' Write data to Test.data.
        w.Write(ibuf)
        w.Close()
        FS.Close()

    End Sub

±¾ÎÄÀ´×ÔCSDN²©¿Í£¬×ªÔØÇë±êÃ÷³ö´¦£ºhttp://blog.csdn.net/EricBai/archive/2005/11/11/527257.aspx