(VBScript) Create CSV File

Demonstrates how to create a new CSV file with some simple content.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' This sample code creates a new CSV file (sample.csv)
' that contains this content:
' 
' year,color,country,food
' 2001,red,France,cheese
' 2005,blue,"United States",hamburger

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Csv")
set csv = CreateObject("Chilkat.Csv")

' Indicate that the 1st row
' should be treated as column names:
csv.HasColumnNames = 1

success = csv.SetColumnName(0,"year")
success = csv.SetColumnName(1,"color")
success = csv.SetColumnName(2,"country")
success = csv.SetColumnName(3,"food")

success = csv.SetCell(0,0,"2001")
success = csv.SetCell(0,1,"red")
success = csv.SetCell(0,2,"France")
success = csv.SetCell(0,3,"cheese")

success = csv.SetCell(1,0,"2005")
success = csv.SetCell(1,1,"blue")
success = csv.SetCell(1,2,"United States")
success = csv.SetCell(1,3,"hamburger")

' Write the CSV to a string and display:

csvDoc = csv.SaveToString()
outFile.WriteLine(csvDoc)

' Save the CSV to a file:
success = csv.SaveFile("out.csv")
If (success <> 1) Then
    outFile.WriteLine(csv.LastErrorText)
End If


outFile.Close