Dim FSO, wShell, dPath, rPath, wPath
Set wShell = CreateObject(“WScript.Shell”)
Set FSO = CreateObject(“Scripting.FileSystemObject”)
rPath = “D:\temp\gamelist_in.csv”
wPath = “D:\temp\gamelist_out.xml”
Set ReadFile = FSO.OpenTextFile(rPath, 1, true)
Set WriteFile = FSO.OpenTextFile(wPath, 2, True)
Dim arr, arrHead
wStr = “”
rStr = ReadFile.ReadLine
arrHead = Split(rStr, “,”)
wStr = wStr & “<gamelist>”
WriteFile.WriteLine(wStr)
Do While ReadFile.AtEndOfStream <> True
rStr = ReadFile.ReadLine
arr = Split(rStr, “,”)
wStr = “”
If UBound(arr) > -1 Then
wStr = wStr & vbTab & “<game>”
wStr = wStr & vbNewLine