« [VB6.0] フォルダ内の検索 | メイン | [VB6.0] CSVの読み込み »

2005年10月13日

[VB6.0] CSVを出力

Dim FileNo As Integer
Dim strOutput As String


FileNo = FreeFile

Open App.Path & "\Sample.csv" For Output As #FileNo '新規作成（上書き）の場合

'Open App.Path & "\Sample.csv" For Append As #FileNo '追加の場合

    

    '一行すべて出力

    strOutput = "あ,い,う,え,お"

    Print #FileNo, strOutput

    

    '一つずつ出力

    Write #FileNo, "か", "き", "く", "け", "こ"

    

Close #FileNo

2005 / 10 / 13