DTS Active X file create / write failure.

Question

DTS Active X file create / write failure.

fperkins

Ten Centuries

Points: 1029
More actions
June 22, 2004 at 2:46 pm

#60402

Trying to loop through all the files in a directory and split each file into separate pieces based on the number of header rows in the file.
The text file read works.
The tso.WriteLine(strText) line fails.
Suggestions on what I am doing wrong would be appreciated.

'**********************************************************************
' Split the file if it has more than one header row
'************************************************************************
Function Main()
Const ForReading = 1
             Const ForWriting = 2
             Const HeaderLine = "-HEADER"
' our variables
Dim objFSODirectory
Dim myFile
Dim objTextStream
Dim strText
Dim strInFileName
Dim strOutFileName
Dim sFiles
Dim sTargetFolder
Dim oFSO
Dim outFileName
Dim tso
' Create File System Object
Set oFSO = CreateObject("Scripting.FileSystemObject")

' Get the root directory name from global variable
Set sTargetFolder = oFSO.GetFolder(DTSGlobalVariables"ToDirectory").Value)
Set sFiles = sTargetFolder.Files

For Each sFiles In sFiles
     sFileName = sFiles.Name
     sFilesPath = sFiles.Path
  'open text file
    Set objTextStream = oFSO.OpenTextFile(sFiles , ForReading , False)
    outFileName = sFileName + ".1"
    Set tso = oFSO.OpenTextFile(outFileName, ForWriting, True)
    If not objTextStream.AtEndOfStream Then
         Do While not objTextStream.AtEndOfStream
              strText = objTextStream.ReadLine
               If InStr(strText, HeaderLine) Then
                    strMsg = strText + "   is a header line."
                    msgBox strMsg
               End If
              tso.WriteLine(strText)
               tso.Close
        Loop
    Else
              tso.Close
    End If
NEXT
' objTextStream.Close
Set objTextStream = Nothing
Set tso = Nothing
Main = DTSTaskExecResult_Success
End Function

Viewing 4 posts - 1 through 3 (of 3 total)

You must be logged in to reply to this topic. Login to reply

rstack SSC Journeyman Points: 99 More actions · Answer 1

changed the location of closing the out text stream, it was closing after every writing a line and not being reopened. Check the error number and description after each operation, reset the err after each operation.

If not objTextStream.AtEndOfStream Then

Do While not objTextStream.AtEndOfStream

strText = objTextStream.ReadLine

tso.WriteLine(strText)

Loop

End If

tso.Close

fperkins Ten Centuries Points: 1029 More actions · Answer 2

Thanks for the help.

Trying to learn this from an online tutorial which indicated the close had to come after each write to get the text to appear in the file. Odd, but at the moment I am too lost to argue.

How / where do the return codes get back to the program? That's the other thing I haven't been able to find yet. I don't see where the "SET tso = " yields a checkable return.

rstack SSC Journeyman Points: 99 More actions · Answer 3

To get any error info on the operation

err.clear

Set tso = oFSO.OpenTextFile(outFileName, ForWriting, True)

if err.number <> 0 then

msgbox err.desc

End if

Try this - when the tso object is closed you get an error.