Text File manipulation

[Legacy 15162]

I am trying to replace a variable amount of characters at the beginning of a line. for this example, the file as 32 characters at the beginning to be deleted. Here is my code as such. I keep getting the "object variable or with block variable not set" error at the specified location.

Public Function WebReport()
Dim i As Integer
Dim fso As New FileSystemObject
Dim folder As folder
Dim filename As String

Set folder = fso.GetFolder("c:\webreports")
For Each file In folder.Files
    filename = fso.GetFileName(file)
    Select Case True
        Case InStr(1, filename, "CC_CSHAUD")
            FormatReport filename, 32

    End Select

Next file
End Function

Public Function FormatReport(filename As String, k)
Dim fso As FileSystemObject
Dim ts As TextStream
Dim tsvar As String


Set ts = fso.OpenTextFile(filename, ForAppending, True)
tsvar = ts.ReadLine()
    While Not ts.AtEndOfStream
        tsvar = ts.ReadLine()
        tsvar = Replace(tsvar, Left(tsvar, k), "")
    Wend
End Function

any help would be greatly appreciated.

 

[Legacy 15162]

this code works

Public Function WebReport()
Dim i As Integer
Dim fso As New FileSystemObject
Dim folder As folder
Dim fmtfolder As folder
Dim fmtfilename As String

Set folder = fso.GetFolder("c:\webreports")
Set fmtfolder = fso.GetFolder("c:\webreports\formattedWebReports")
For Each file In folder.Files
    fmtfilename = file.Name
    Select Case True
        Case InStr(1, file.Path, "CC_CSHAUD")
            FormatReport file.Path, fmtfolder & "\" & fmtfilename, 32

    End Select

Next file
End Function

Public Function FormatReport(fileName As String, fmtfilename As String, k)
Dim fso As New FileSystemObject
Dim ts As TextStream
Dim tsvar As String
Dim tsnew As TextStream


Set ts = fso.OpenTextFile(fileName)
Set tsnew = fso.CreateTextFile(fmtfilename)
tsvar = ts.ReadLine()
    While Not ts.AtEndOfStream
        tsvar = ts.ReadLine()
        tsvar = Replace(tsvar, Left(tsvar, k), "")
        tsvar = LTrim(tsvar)
        tsvar = tsvar
        tsnew.WriteLine (tsvar)
    Wend
    tsnew.Close
End Function

now, to be able to migrate that into a vbs file is the next step. any suggestions?