VB2008的文件操作

VB2008的文件操作

一. 意图

在使用VB编写串口时经常涉及文件的加载操作,由于初学,故此列出我操作文件的一些傻瓜方法

二. 触发文件选择对话框得到目标文件的路径和大小

1. 准备工作:

① 打开文件对话空控件: OpenFileDialog

② 触发按键:FileButton

③ 文本框:FileText

④ 字符创变量记录文件名: dim ota_filename as string

⑤ 文件的长度变量: dim ota_flen as integer

2. 在点击FileButton按键时触发一下代码:

If OpenFileDialog.ShowDialog() = DialogResult.OK Then
            FileText.Text = ""                      '清文本框
            FileText.Text = OpenFileDialog.FileName '输出文件路径和文件名
            ota_filename = OpenFileDialog.SafeFileName  '获得文件名和扩展名
            FileText.Enabled = False                '禁止编辑文件路径
            ota_flen = FileLen(FileText.Text)   '获取该的文件大小

            '添加你自己的按键触发的其他操作代码.....
            '你自己的代码
            '你自己的代码
        End If

三. 将文件按256字节对其

1. 准备

① 变量:要填充的字节数:dim my_fill as integer

2. 实现

'判断是否对齐
        '文件字节数大小ota_flen已在之前获取
        dim fill_data(255) as Byte
        If ota_flen Mod 256 <> 0 Then
            '计算出要填充的字节数,并准备填充缓冲
            my_fill = 256 - (my_flen Mod 256)
            
            '准备好要用来填充的缓冲
            For i = 0 To my_fill
                fill_data(i) = 255
            Next

            '追加方式添加0xFF到文件尾部,补齐数据
            Dim fs As New System.IO.FileStream(FileText.Text, IO.FileMode.Append)
            fs.Write(fill_data, 0, my_fill)       '写入my_fill个fill_data中的数据到文件末尾
            fs.Close()
        End If

四. 读出文件到数组

Dim buf() As Byte
        buf = IO.File.ReadAllBytes(FileText.Text)   '将所有的Byte读到缓冲

注buf可以是