Append file name to each record in file

[goss]

Hi all,
I have several files in a folder.
I would like to append the file name to the front of each record in each file
Something like;

Sub AppendNameRecord()
Dim strFileName as string


For each file in folder
strFileName = file.name

Do While Not EOF
For each rec in file
strRecord = strFileName & "," & rec
Next
Next
End sub

Anyone ever done something like this?

 

[ChrisM]

Yes, you can do that, sorry can't duplicate code off top of my head, but the excel help file has good enough documentation to get you through this.

Use the FileSystemObject to loop through all the files in a folder, the help file has an example to do exactly that. There are drive, directory, and file objects. You basically set the drive and directory yourself, then loop through all the files it returns.

Use the TextStreamObject, or just old fashioned reads/writes, to edit the records. Help file should get you through using the TextStream object too.

 

[goss]

Thanks Chris,

My code below appears to be working.
Appreciate any/all comments for improvements.

Thanks
goss

Sub ProcessProductFiles()
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'Process Product Files
    'Written by Doofenschmirtz
    'Date: 12/13/2009
    'Abstract: Open each product file, append file name to front of each record
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
    Dim fso As New FileSystemObject
    Dim folder As folder
    Dim file As file
    Dim strFileName As String
    Dim strReadLine As String
    Dim txtFileOut As TextStream
    Dim txtFileIn As TextStream

    Set fso = New FileSystemObject
    Set folder = fso.GetFolder("C:\tmp")
   
    For Each file In folder.Files
        strFileName = file.Name
        Set txtFileIn = fso.OpenTextFile("C:\tmp\" & strFileName, ForReading)
        Set txtFileOut = fso.CreateTextFile("C:\tmp\n - " & strFileName & ".txt", True)
        
        While Not txtFileIn.AtEndOfStream
            strReadLine = ""
            strReadLine = txtFileIn.ReadLine
            strReadLine = strFileName & "," & strReadLine
            txtFileOut.WriteLine (strReadLine)
        Wend
        
        txtFileIn.Close
        txtFileOut.Close
    Next
    
    MsgBox "The process is complete", vbInformation, "Process Product Files"

    Set fso = Nothing
    Set folder = Nothing
    Set txtFileIn = Nothing
    Set txtFileOut = Nothing

End Sub