vb.net ファイルの書き出し

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

ファイルの読み込み

【モツ鍋 送料無料】もつ鍋セット ぷるっぷるコプチャンたっぷり3人前（500g）黒毛和牛のお試しセット♪人気に訳あり・レビュ－にわけあり♪ 【2014 お歳暮 御歳暮 モツ鍋セット 博多もつ鍋 もつなべ ホルモン鍋 お祝い 冬ギフト プレゼント 楽天】ポイント3倍 価格:5,076円 (2014/10/28 21:44時点) 感想(902件)