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円 |