VB.NET硬盘速度测试的应用方法是什么

Sub Main()  Dim I As Int32  Dim f As New FileStream("E:\BigFile.big", FileMode.Create)  Dim fw As New BinaryWriter(f)  Dim fr As New BinaryReader(f)  Dim Size As Int32 = 1024 * 1024 * 1024 - 1 'File size = 1GB Dim bufSize As Int32 = 30 * 1024 * 1024 'Buffer Size = 30MB Dim jLast As Int32 = bufSize - 1  Dim j As Int32  Dim Bytes(bufSize) As Byte  Dim StartWrite As DateDate = Date.Now  Console.WriteLine("Write Start at {0}", StartWrite)  Console.WriteLine("Creating...")  For I = 0 To Size Step bufSize '1GB  fw.Write(Bytes)  Next  Dim EndWrite As DateDate = Date.Now  Dim TimePassed As TimeSpan = EndWrite.Subtract(StartWrite)  Console.WriteLine("Write End at {0}", EndWrite)  Console.WriteLine("Time passed:{0}", TimePassed)  Console.WriteLine("Speed:{0}", 1000 / TimePassed.TotalSeconds)  fw.Flush()  Dim StartRead As DateDate = Date.Now  Console.WriteLine("Read Start at {0}", StartRead)  Console.WriteLine("Reading")  For I = 0 To Size Step bufSize  Bytes = fr.ReadBytes(bufSize)  Next  Dim EndRead As DateDate = Date.Now  TimePassed = EndRead.Subtract(StartRead)  Console.WriteLine("Read End at {0}", EndRead)  Console.WriteLine("Time passed:{0}", TimePassed)  Console.WriteLine("Read speed:{0}", 1000 / TimePassed.TotalSeconds)  Console.ReadLine()  fw.Close()  End Sub