Public Function GetDriveSpeedWrite() As Long
 
    Dim Drive As String
    Dim T As Long
    Dim StartTime As Double
    Dim WriteSpeed As Long
 
    Drive = Right(Environ(7), 2) & "\"
 
    StartTime = Timer
 
    Open Drive & "DriveSpeedTest.txt" For Output As #1
        For T = 1 To 512000
            Print #1, "X"
        Next T
    Close #1
 
 
    WriteSpeed = Format((1 / ((Timer - StartTime) * 2)) * 1024000, "0")
 
    If WriteSpeed > 10485760 Then Exit Function
    If WriteSpeed > 1048576 Then
        frmMain.lblDiskWrite.Caption = "mb"
        WriteSpeed = Round(Int(WriteSpeed / 104857.6), 0)
    ElseIf WriteSpeed > 1024 Then
        If WriteSpeed > 102400 Then
            frmMain.lblDiskWrite.Caption = "kb"
            WriteSpeed = Round(Int(WriteSpeed / 10240), 0)
        Else
            frmMain.lblDiskWrite.Caption = "kb"
            WriteSpeed = Round(Int(WriteSpeed / 1024), 0)
        End If
    Else
        frmMain.lblDiskWrite.Caption = "by"
        WriteSpeed = Round(Int(WriteSpeed / 10.24), 0)
    End If
 
    GetDriveSpeedWrite = WriteSpeed
 
End Function
 
Public Function GetDriveSpeedRead() As Long
 
    Dim Drive As String
    Dim T As Long
    Dim StartTime As Double
    Dim ReadSpeed As Long
 
    Drive = Right(Environ(7), 2) & "\"
 
    StartTime = Timer
 
    Open Drive & "DriveSpeedTest.txt" For Input As #1
        Do While Not EOF(1)
            Line Input #1, tmpData
        Loop
    Close #1
 
    ReadSpeed = Format((1 / ((Timer - StartTime) * 2)) * 1024000, "0")
 
    Kill Drive & "DriveSpeedTest.txt"
 
    If ReadSpeed > 10485760 Then Exit Function
    If ReadSpeed > 1048576 Then
        frmMain.lblDiskRead.Caption = "mb"
        ReadSpeed = Round(Int(ReadSpeed / 104857.6), 0)
    ElseIf ReadSpeed > 1024 Then
        If ReadSpeed > 102400 Then
            frmMain.lblDiskRead.Caption = "kb"
            ReadSpeed = Round(Int(ReadSpeed / 10240), 0)
        Else
            frmMain.lblDiskRead.Caption = "kb"
            ReadSpeed = Round(Int(WReadSpeed / 1024), 0)
        End If
    Else
        frmMain.lblDiskRead.Caption = "by"
        ReadSpeed = Round(Int(ReadSpeed / 10.24), 0)
    End If
 
    GetDriveSpeedRead = ReadSpeed
 
End Function