- Jun 26, 2001
- 52
- 0
- 0
I wrote the following little VBA program to test various drives in different computers. All the drives in my home computer test the same. I have two 150 gig Raptors in RAID 0, one 150 gig Raptor X for C drive, one new Velociraptor as D, and a Hitachi 7K1000 1 terabyte drive. They all take 38 seconds to run the following program. I don't understand why.
=======================================================
Private Sub StartBtn_Click()
Dim str1 As String
Dim x As Long
Dim start_Time
Dim stop_Time
Dim Total_Time
start_Time = Time
StartTimeLabel.Caption = start_Time
Open "j:\OutFile.txt" For Output As #1
For x = 1 To 6736832
str1 = "abcdefghijklmnopqrstuvwxyz0123456789abcdefghijklmnopqrstuvwxyz0123456789abcdefghijklmnopqrstuvwxyz0123456789abcdefghijklmnopqrstuvwxyz0123456789"
Write #1, str1
Next x
Close #1
stop_Time = Time
StopTimeLabel.Caption = stop_Time
Total_Time = stop_Time - start_Time
Debug.Print stop_Time
Debug.Print start_Time
Debug.Print Total_Time
End Sub
==========================================================
Anyone have ideas about this? (and yes, I change the drive letter when writing to different drives)
=======================================================
Private Sub StartBtn_Click()
Dim str1 As String
Dim x As Long
Dim start_Time
Dim stop_Time
Dim Total_Time
start_Time = Time
StartTimeLabel.Caption = start_Time
Open "j:\OutFile.txt" For Output As #1
For x = 1 To 6736832
str1 = "abcdefghijklmnopqrstuvwxyz0123456789abcdefghijklmnopqrstuvwxyz0123456789abcdefghijklmnopqrstuvwxyz0123456789abcdefghijklmnopqrstuvwxyz0123456789"
Write #1, str1
Next x
Close #1
stop_Time = Time
StopTimeLabel.Caption = stop_Time
Total_Time = stop_Time - start_Time
Debug.Print stop_Time
Debug.Print start_Time
Debug.Print Total_Time
End Sub
==========================================================
Anyone have ideas about this? (and yes, I change the drive letter when writing to different drives)