ログ出力を高速にするには？ (ID:87210)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 全くの推測ですが、ハードディスクへのアクセスがボトルネックになり どんな風にしても、そんなに速度は上がらないんじゃないでしょうか。 メモリに余裕があるならRAMディスクを導入してはいかがですか？ 下記テストコードでハードディスク上では26秒 RAMディスク上では2.7秒でした Private Sub Command1_Click() Dim i As Long Dim dblT As Double strLog = App.Path & "\Log.txt" dblT = Timer For i = 1 To 10000 LogOut "テストメッセージ出力 " & Format(i) & "回目" Next Debug.Print Timer - dblT strLog = "G:\Log.txt" dblT = Timer For i = 1 To 10000 LogOut "テストメッセージ出力 " & Format(i) & "回目" Next Debug.Print Timer - dblT End Sub Private Sub LogOut(strMsg As String) Dim intF As Integer intF = FreeFile Open strLog For Append As #intF Print #intF, Format(Now, "yyyy/mm/dd hh:mm:ss") & " - " & strMsg Close #intF End Function ちなみにRAMディスクは（http://www.ramdisk.tk）のものを使いました。