CSVファイルをコネコネするシリーズ1。
ASP.NET(VB)でCSV作成用関数を作成。
指定したフォルダにカンマ区切りCSVファイルが作成できます。


#Region "ＣＳＶファイル作成"
Private Sub CsvMake()
'=====================================================
'ＣＳＶファイル作成
'-----------------------------------------------------
'【引　数】
'【戻り値】なし
'=====================================================

Try
Dim DirName As String = "C:\CSV\"
Dim FileName As String = "test.csv"
Dim strFullpath As String = DirName & FileName
Dim strLine() As String = Nothing

'格納するフォルダが存在しない場合、フォルダを作成
If System.IO.Directory.Exists(DirName) = False Then
System.IO.Directory.CreateDirectory(DirName)
End If

Dim i As Integer
For i = 0 To 10
strLine(i) = "aaa"
Next i

'ＣＳＶを作成
Dim sw As System.IO.StreamWriter
sw = New System.IO.StreamWriter(strFullpath, True, System.Text.Encoding.GetEncoding(932))
sw.WriteLine(strLine)

sw.Close()

Catch ex As Exception
Throw ex
End Try

End Sub
#End Region