vb2008 文件目录相关

以下摘自《vb2008开发经验与实战宝典》  源码位置c01

'将指定URI数据下载到本地文件    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim MyUri As String = "http://www.microsoft.com/mspress/images/banner.gif"

        Dim MyFileName As String = "banner.gif"

        Dim MyClient As New System.Net.WebClient()

        MyClient.DownloadFile(MyUri, MyFileName)

        System.Diagnostics.Process.Start(MyFileName)

    End Sub

  Public Class Form1

    '判断指定目录是否已经存在

    System.IO.Directory.Exists(MyDir1)

    '获取指定目录的上级目录

        Dim MyParentDir = System.IO.Directory.GetParent(MyDir).FullName

'获取全路径名的目录信息   

        Dim MyDirectoryName = System.IO.Path.GetDirectoryName(MyPathName)      

    '获取全路径名的根目录信息  

        Dim MyPathName = "C:\Windows\Notepad.exe"      

        Dim MyRootDirectoryName = System.IO.Path.GetPathRoot(MyPathName)       

' 获取当前工作目录

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim MyPath = "当前工作目录是："

        MyPath += System.IO.Directory.GetCurrentDirectory()

        MessageBox.Show(MyPath, "信息提示", MessageBoxButtons.OK)

    End Sub

    '设置当前工作目录 

Dim MyPath = "C:\Windows"

        System.IO.Directory.SetCurrentDirectory(MyPath)    

  End Sub

    '获取和设置指定目录的时间

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Dim MyDirName = "F:\Visual Basic 2005 编程技巧大全"

        Dim MyInfo = MyDirName + "目录的时间信息如下："

        MyInfo += vbCrLf + "目录创建时间：" + System.IO.Directory.GetCreationTime(MyDirName).ToString()

        MyInfo += vbCrLf + "目录访问时间：" + System.IO.Directory.GetLastAccessTime(MyDirName).ToString()

        MyInfo += vbCrLf + "目录修改时间：" + System.IO.Directory.GetLastWriteTime(MyDirName).ToString()

        MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK)

        System.IO.Directory.SetCreationTime(MyDirName, DateTime.Now)

        System.IO.Directory.SetLastAccessTime(MyDirName, DateTime.Now)

        System.IO.Directory.SetLastWriteTime(MyDirName, DateTime.Now)

        MessageBox.Show("成功设置目录时间属性！", "信息提示", MessageBoxButtons.OK)

    End Sub

    '获取指定目录的属性

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        Dim MyDirName As String = "C:\TestDir"

        Dim MyInfo As String = MyDirName + "目录的属性信息如下："

        Try

            Dim MyAttributes As System.IO.FileAttributes = System.IO.File.GetAttributes(MyDirName)

            If ((MyAttributes And System.IO.FileAttributes.ReadOnly) = System.IO.FileAttributes.ReadOnly) Then

                MyInfo += vbCrLf + "只读属性为真；"

            End If

            If ((MyAttributes And System.IO.FileAttributes.System) = System.IO.FileAttributes.System) Then

                MyInfo += vbCrLf + "系统属性为真；"

            End If

            If ((MyAttributes And System.IO.FileAttributes.Hidden) = System.IO.FileAttributes.Hidden) Then

                MyInfo += vbCrLf + "隐藏属性为真；"

            End If

            If ((MyAttributes And System.IO.FileAttributes.Archive) = System.IO.FileAttributes.Archive) Then

                MyInfo += vbCrLf + "归档属性为真；"

            End If

            MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception

            MessageBox.Show(ex.Message, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Try

    End Sub

    '设置指定目录的属性

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        Dim MyDirName As String = "C:\TestDir"

        Dim MyAttributes As System.IO.FileAttributes

        Try

            System.IO.File.SetAttributes(MyDirName, System.IO.FileAttributes.Normal)

            MyAttributes = System.IO.File.GetAttributes(MyDirName)

            System.IO.File.SetAttributes(MyDirName, MyAttributes Or System.IO.FileAttributes.ReadOnly)

            MyAttributes = System.IO.File.GetAttributes(MyDirName)

            System.IO.File.SetAttributes(MyDirName, MyAttributes Or System.IO.FileAttributes.System)

            MyAttributes = System.IO.File.GetAttributes(MyDirName)

            System.IO.File.SetAttributes(MyDirName, MyAttributes Or System.IO.FileAttributes.Hidden)

            MyAttributes = System.IO.File.GetAttributes(MyDirName)

            System.IO.File.SetAttributes(MyDirName, MyAttributes Or System.IO.FileAttributes.Archive)

            MyAttributes = System.IO.File.GetAttributes(MyDirName)

            MessageBox.Show("成功设置目录属性！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception

            MessageBox.Show(ex.Message, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Try

    End Sub

    '取消指定目录的属性

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        Dim MyDirName As String = "C:\TestDir"

        Try

            System.IO.File.SetAttributes(MyDirName, System.IO.FileAttributes.Normal)

            MessageBox.Show("成功取消目录属性！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception

            MessageBox.Show(ex.Message, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Try

    End Sub

    '获取启动程序的文件目录

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        Dim MyInfo = "启动了应用程序的可执行文件的目录是：" + Application.StartupPath

        MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK)

    End Sub

    '获取启动程序的文件路径

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        Dim MyInfo = "启动了应用程序的可执行文件的路径是：" + Application.ExecutablePath

        MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK)

    End Sub

    '去掉全路径名的路径信息

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

        Dim MyPathName = "C:\Windows\Notepad.exe"

        Dim MyFileName = System.IO.Path.GetFileName(MyPathName)

        Dim MyInfo = "全路径文件名：" + MyPathName + vbCrLf

        MyInfo += "无路径文件名：" + MyFileName

        MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK)

    End Sub

    '去掉全路径名的扩展名和路径

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

        Dim MyPathName = "C:\Windows\Notepad.exe"

        Dim MyFileName = System.IO.Path.GetFileNameWithoutExtension(MyPathName)

        Dim MyInfo = "全路径文件名：" + MyPathName + vbCrLf

        MyInfo += "无路径和扩展名的文件名：" + MyFileName

        MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK)

    End Sub

    '获取全路径名的扩展名信息

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

        Dim MyPathName = "C:\Windows\Notepad.exe"

        Dim MyExtensionName = System.IO.Path.GetExtension(MyPathName)

        Dim MyInfo = "全路径文件名：" + MyPathName + vbCrLf

        MyInfo += "扩展名信息：" + MyExtensionName

        MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK)

    End Sub

    '合并两个包含路径的字符串

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

        Dim MyPathName = "C:\Windows\Notepad.exe"

        Dim MyNewPath = "F:"

        Dim MyFileName = System.IO.Path.GetFileName(MyPathName)

        Dim MyDestName = System.IO.Path.Combine(MyNewPath, MyFileName)

        Dim MyInfo = "源文件名：" + MyPathName + vbCrLf

        MyInfo += "目标文件名：" + MyDestName

        MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK)

    End Sub

    '获取路径名禁止使用的字符

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

        Dim MyChars() As Char = System.IO.Path.GetInvalidPathChars()

        Dim MyInfo As String = "路径名禁止使用字符包括：" + vbCrLf

        For Each MyChar As Char In MyChars

            MyInfo += MyChar.ToString() + vbCrLf

        Next

        MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

    '更改指定文件的扩展名

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

        Dim MyOldFileName = "C:\atlog.txt"

        Dim MyResult = System.IO.Path.ChangeExtension(MyOldFileName, ".dat")

        Dim MyInfo = String.Format("成功更改文件扩展名：{0} 为： {1}", MyOldFileName, MyResult)

        MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK)

    End Sub

    '以不同的方式更名文件

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click

        Try

            '复制测试用文件

            System.IO.File.Copy("C:\Windows\Notepad.exe", "C:\Notepad.exe", True)

            '方式一：使用方法File.Copy()

            System.IO.File.Copy("C:\Notepad.exe", "C:\NotepadTest1.exe", True)

            '方式二：使用方法FileInfo.MoveTo()

            Dim MyInfo As New System.IO.FileInfo("C:\Notepad.exe")

            If (System.IO.File.Exists("C:\NotepadTest2.exe")) Then

                System.IO.File.Delete("C:\NotepadTest2.exe")

            End If

            MyInfo.MoveTo("C:\NotepadTest2.exe")

            '复制测试用文件

            System.IO.File.Copy("C:\Windows\Notepad.exe", "C:\Notepad.exe", True)

            '方式三：使用方法File.Move()

            If (System.IO.File.Exists("C:\NotepadTest3.exe")) Then

                System.IO.File.Delete("C:\NotepadTest3.exe")

            End If

            System.IO.File.Move("C:\Notepad.exe", "C:\NotepadTest3.exe")

            MessageBox.Show("使用三种方式更名文件操作成功！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception

            MessageBox.Show(ex.Message, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Try

    End Sub

    '以不同的方式复制文件

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click

        Try

            '方式一：使用方法File.Copy()

            System.IO.File.Copy("C:\Windows\Notepad.exe", "E:\MyNotepad.exe", True)

            '方式二：使用方法FileInfo.CopyTo()

            Dim MyInfo As New System.IO.FileInfo("C:\Windows\Notepad.exe")

            MyInfo.CopyTo("E:\Notepad.exe", True)

            MessageBox.Show("使用两种方式复制文件操作成功！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception

            MessageBox.Show(ex.Message, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Try

    End Sub

    '以不同的方式删除文件

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click

        Try

            '复制测试用文件

            System.IO.File.Copy("C:\Windows\Notepad.exe", "C:\MyNotepad.exe", True)

            System.IO.File.Copy("C:\Windows\Notepad.exe", "C:\Notepad.exe", True)

            '方式一：使用方法File.Delete()

            If (System.IO.File.Exists("C:\MyNotepad.exe")) Then

                System.IO.File.Delete("C:\MyNotepad.exe")

            End If

            '方式二：使用方法FileInfo.Delete()

            Dim MyInfo As New System.IO.FileInfo("C:\Notepad.exe")

            If (System.IO.File.Exists("C:\Notepad.exe")) Then

                MyInfo.Delete()

            End If

            MessageBox.Show("使用两种方式删除文件操作成功！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception

            MessageBox.Show(ex.Message, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Try

    End Sub

    '获取指定文件的尺寸大小

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click

        Dim MyFileName As String = "C:\Windows\NOTEPAD.exe"

        Dim MyFileInfo As New System.IO.FileInfo(MyFileName)

        Dim MyInfo As String = MyFileName + "文件共有：" + MyFileInfo.Length.ToString() + "字节"

        MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

    '计算多层目录的文件尺寸

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click

        Dim MyFolder As String = "F:\Visual Basic 2008 程序开发经验宝典"

        Dim MyDir As New System.IO.DirectoryInfo(MyFolder)

        Dim MyInfo As String = MyFolder + "目录的大小是：" + CalculateDirectorySize(MyDir, True).ToString() + "字节。"

        MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

    Public Shared Function CalculateDirectorySize(ByVal MyDirectory As System.IO.DirectoryInfo, ByVal IsSubDirectories As Boolean) As Long

        Dim MySize As Long = 0

        '检查包含的所有文件

        Dim MyFiles() As System.IO.FileInfo = MyDirectory.GetFiles()

        For Each MyFile As System.IO.FileInfo In MyFiles

            MySize += MyFile.Length

        Next

        '检查包含的所有子目录

        If (IsSubDirectories) Then

            Dim MyDirs() As System.IO.DirectoryInfo = MyDirectory.GetDirectories()

            For Each MyDir As System.IO.DirectoryInfo In MyDirs

                MySize += CalculateDirectorySize(MyDir, True)

            Next

        End If

        Return MySize

    End Function

    '获取文件名禁止使用的字符

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click

        Dim MyChars() As Char = System.IO.Path.GetInvalidFileNameChars()

        Dim MyInfo As String = "文件名禁止使用字符包括：" + vbCrLf

        For Each MyChar As Char In MyChars

            MyInfo += MyChar.ToString() + vbCrLf

        Next

        MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

    '将长文件名转换成短文件名

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click

        Dim MyLongName As String = "F:\Visual C# 2008 编程技巧大全.doc"

        If (Not System.IO.File.Exists(MyLongName)) Then

            MessageBox.Show(MyLongName + "文件不存在！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Return

        End If

        Dim MyShortName As New System.Text.StringBuilder(256)

        Dim MyInfo As String = vbCrLf + "长文件名：" + MyLongName + vbCrLf

        GetShortPathName(MyLongName, MyShortName, 256)

        MyInfo += "短文件名：" + MyShortName.ToString()

        MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

    Private Declare Function GetShortPathName Lib "Kernel32.dll" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As System.Text.StringBuilder, ByVal cchBuffer As Integer) As Integer

    '获取和设置指定文件的时间

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click

        Dim MyFileName As String = "F:\Visual C# 2008 编程技巧大全.doc"

        Dim MyFileInfo As New System.IO.FileInfo(MyFileName)

        Dim MyInfo As String = MyFileName + "文件的时间信息如下："

        MyInfo += vbCrLf + "文件创建时间：" + MyFileInfo.CreationTime.ToString()

        MyInfo += vbCrLf + "文件访问时间：" + MyFileInfo.LastAccessTime.ToString()

        MyInfo += vbCrLf + "文件修改时间：" + MyFileInfo.LastWriteTime.ToString()

        MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Try

            MyFileInfo.CreationTime = DateTime.Now

            MyFileInfo.LastAccessTime = DateTime.Now

            MyFileInfo.LastWriteTime = DateTime.Now

            MessageBox.Show("成功设置文件时间属性！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception

            MessageBox.Show(ex.Message, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Try

    End Sub

    '设置文件属性

    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click

        Dim MyFileName As String = "F:\Visual C# 2008 编程技巧大全.doc"

        Dim MyFile As New System.IO.FileInfo(MyFileName)

        '只读属性

        MyFile.Attributes = MyFile.Attributes Or System.IO.FileAttributes.ReadOnly

        '隐藏属性

        MyFile.Attributes = MyFile.Attributes Or System.IO.FileAttributes.Hidden

        '归档属性

        MyFile.Attributes = MyFile.Attributes Or System.IO.FileAttributes.Archive

        MessageBox.Show(MyFileName + "文件属性已经被成功设置！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

 

    End Sub

    '获取文件属性

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click

        Dim MyFileName As String = "F:\Visual C# 2008 编程技巧大全.doc"

        Dim MyFile As New System.IO.FileInfo(MyFileName)

        Dim MyInfo As String = MyFileName + "文件属性信息如下：" + vbCrLf

        If ((MyFile.Attributes And System.IO.FileAttributes.ReadOnly) = System.IO.FileAttributes.ReadOnly) Then

            MyInfo += "只读属性：真" + vbCrLf

        End If

        If ((MyFile.Attributes And System.IO.FileAttributes.Hidden) = System.IO.FileAttributes.Hidden) Then

            MyInfo += "隐藏属性：真" + vbCrLf

        End If

        If ((MyFile.Attributes And System.IO.FileAttributes.Archive) = System.IO.FileAttributes.Archive) Then

            MyInfo += "归档属性：真" + vbCrLf

        End If

        MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

    '取消文件属性

    Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click

        Dim MyFileName As String = "F:\Visual C# 2008 编程技巧大全.doc"

        Dim MyFile As New System.IO.FileInfo(MyFileName)

        MyFile.Attributes = IO.FileAttributes.Normal

        MessageBox.Show(MyFileName + "文件属性已经被成功取消！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

    '判断指定文件是否已经存在

    Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click

        Dim MyFile1 As String = "C:\atlog.txt"

        Dim MyFile2 As String = "F:\atlog.txt"

        Dim MyInfo As String = ""

        If (System.IO.File.Exists(MyFile1)) Then

            MyInfo += MyFile1 + " 文件已经存在！" + vbCrLf

        Else

            MyInfo += MyFile1 + " 文件不存在！" + vbCrLf

        End If

        If (System.IO.File.Exists(MyFile2)) Then

            MyInfo += MyFile2 + " 文件已经存在！" + vbCrLf

        Else

            MyInfo += MyFile2 + " 文件不存在！" + vbCrLf

        End If

        MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

    '比较两个文件内容是否相同

    Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click

        Dim MyFileName1 As String = "Compare1.txt"

        Dim MyFileName2 As String = "Compare2.txt"

        Dim MyStream1 As System.IO.FileStream = Nothing

        Dim MyStream2 As System.IO.FileStream = Nothing

        Try

            MyStream1 = New System.IO.FileStream(MyFileName1, System.IO.FileMode.Open)

            MyStream2 = New System.IO.FileStream(MyFileName2, System.IO.FileMode.Open)

            Dim MyCount1 As Integer = 0

            Dim MyCount2 As Integer = 0

            '逐一比较两个文件的每一个字节组，直到文件结束或有不相同的地方为止

            While ((MyCount1 = MyCount2) And (MyCount1 <> -1))

                '从文件中读取一个字节组

                MyCount1 = MyStream1.ReadByte()

                MyCount2 = MyStream2.ReadByte()

            End While

            If ((MyCount1 = MyCount2) And (MyCount1 <> 0)) Then

                MessageBox.Show(MyFileName1 + "和" + MyFileName2 + "的内容完全相同！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Else

                MessageBox.Show(MyFileName1 + "和" + MyFileName2 + "的内容不相同！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

            End If

        Catch ex As Exception

            MessageBox.Show(ex.Message, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Finally

            MyStream1.Close()

            MyStream2.Close()

        End Try

    End Sub

    '比较两个文件是否完全相等

    Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click

        Try

            Dim MyFile1 As String = "Compare1.txt"

            Dim MyFile2 As String = "Compare2.txt"

            Dim MyHash As System.Security.Cryptography.HashAlgorithm = System.Security.Cryptography.HashAlgorithm.Create()

            '计算第一个文件的哈希值

            Dim MyStream1 As New System.IO.FileStream(MyFile1, System.IO.FileMode.Open)

            Dim MyHashBytes1() As Byte = MyHash.ComputeHash(MyStream1)

            MyStream1.Close()

            '计算第二个文件的哈希值

            Dim MyStream2 As New System.IO.FileStream(MyFile2, System.IO.FileMode.Open)

            Dim MyHashBytes2() As Byte = MyHash.ComputeHash(MyStream2)

            MyStream2.Close()

            '比较两个哈希值

            If (BitConverter.ToString(MyHashBytes1) = BitConverter.ToString(MyHashBytes2)) Then

                MessageBox.Show("两个文件相等。", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Else

                MessageBox.Show("两个文件不相等。", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

            End If

        Catch ex As Exception

            MessageBox.Show(ex.Message, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Try

    End Sub

    '使用缓冲流快速复制文件

    Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click

        Dim MySourceFile As String = "F:\Northwind.mdb"

        Dim MyTargetFile As String = "C:\NW.mdb"

        Dim MyInputStream, MyOutputStream As System.IO.Stream

        Dim MyBufferedInput, MyBufferedOutput As System.IO.BufferedStream

        Dim MyBuffer(1024) As Byte

        Dim MyBytesRead As Integer

        Try

            '创建二进制流

            MyInputStream = System.IO.File.OpenRead(MySourceFile)

            MyOutputStream = System.IO.File.OpenWrite(MyTargetFile)

            '创建二进制缓冲流

            MyBufferedInput = New System.IO.BufferedStream(MyInputStream)

            MyBufferedOutput = New System.IO.BufferedStream(MyOutputStream)

            MyBytesRead = MyBufferedInput.Read(MyBuffer, 0, 1024)

            While (MyBytesRead > 0)

                MyBufferedOutput.Write(MyBuffer, 0, MyBytesRead)

                MyBytesRead = MyBufferedInput.Read(MyBuffer, 0, 1024)

            End While

            MyBufferedOutput.Flush()

            MyBufferedInput.Close()

            MyBufferedOutput.Close()

            MessageBox.Show("复制文件操作完成！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception

            MessageBox.Show("复制文件操作失败：" + ex.Message, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Try

    End Sub

点击查看第二部分（文件存储）

我的更多文章：

• vb webbrowser 保存网页源码的各种方法(2012-02-05 18:20:56)
• 使用正则表达式vb从网址提取根域名(2012-01-21 16:00:49)
• Vb.net 分组控件学习 checkedlistbox(2011-12-21 16:40:51)
• vb.net 如何选择文件夹 不是文件(2011-12-20 23:25:10)
• Vb.net 获取IP地址(2011-11-02 10:09:00)
• vb2008弹出菜单位置(2011-11-01 22:01:01)
• vb.net timer 定时器(2011-10-25 21:17:20)
• form maximizebox 点击时触发的是Resize事件，不是MaximumSizeChanged(2010-11-28 13:19:10)
• vb2008 文件目录相关（2）(2010-11-27 22:29:51)