Module Module1
Sub main()
Dim sw As System.Diagnostics.Stopwatch = System.Diagnostics.Stopwatch.StartNew()
Dim i As Long
Dim strFile As String
strFile = "C:\ak\down\test.txt"
sw.Reset()
sw.Start()
Using writer As New System.IO.StreamWriter(strFile)
For i = 1 To 10000
writer.WriteLine(Format(i, "00000") & "件目 テキスト・ファイルの内容")
Next i
End Using
MsgBox(i - 1 & " 件数 経過時間 " & sw.Elapsed.ToString)
End Sub
End Module
![]() | 価格:5,076円 |
![](https://img-proxy.blog-video.jp/images?url=http%3A%2F%2Fwww14.a8.net%2F0.gif%3Fa8mat%3D1U7H43%2B7FBY76%2B2HOM%2BBWGDT)