johngalt47
n00b
- Joined
- Nov 28, 2006
- Messages
- 32
I have several drives in my computer and wrote a little program to test their performance against the performance of the drives in my office computers.
What I don't understand is why all the drives in my home computer test the same. Here is the VBA code I use. It creates a nearly 1 gigabyte file and takes about 38 seconds no matter which drive I write to.
========================================================
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?
What I don't understand is why all the drives in my home computer test the same. Here is the VBA code I use. It creates a nearly 1 gigabyte file and takes about 38 seconds no matter which drive I write to.
========================================================
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?