Dim fso, outFile SET fso = CreateObject("Scripting.FileSystemObject") SET outFile = fso.CreateTextFile("output.txt", TRUE) ' This example program loads a file (sample.csv) ' that contains this content: ' ' YEAR,color,country,food ' 2001,red,France,cheese ' 2005,blue,"United States",hamburger ' 2008,green,Italy,pasta ' 1998,orange,Japan,sushi ' ' The FIRST ROW contains the column names. ' This file is available at: ' http://www.chilkatsoft.com/testData/sample.csv SET csv = CreateObject("Chilkat.Csv") ' Prior to loading the CSV file, indicate that the 1st row ' should be treated AS column names: csv.HasColumnNames = 1 ' Load the CSV records from the file: success = csv.LoadFile("sample.csv") If (success <> 1) Then MsgBox csv.LastErrorText WScript.Quit End If ' Display the contents OF the 3rd column (i.e. the country names) n = csv.NumRows FOR ROW = 0 TO n - 1 outFile.WriteLine(csv.GetCell(ROW,2)) Next outFile.CLOSE