VBA to extract text from multiple .txt files in subfolders

[mintz]

I'm looking for a VBA macro to do the following:
- given a specific path, search all folders and subfolders and extract text from all files named "contact.txt"
- for each .txt file insert the content into a new row under column A and its path into column B
These solutions the closest to what I'm trying to achieve

Compiling data from multiple excel files in multiple subfolders into one worksheet

I hope im on the right track. Im trying to compile data from multiple files in multiple sub folders within a directory. The code appears the hang up when trying to imbed the information into the "pull from ri" sheet. Not sure what im missing here. Sub sample() Dim FileSystem As Object...

www.mrexcel.com

Macro to extract text from .txt file into Excel

Hi, I'm completely new to macro building but here goes: I would like to extract info from an external txt file into Excel. For example: txt file: /* ----------------- Dummy ------------------- */ JobName: Dummy send_notifications: y max_runs: 5 /* ----------------- TAF-O-FF401D...

www.mrexcel.com

 

[Marc L]

According to both attachments :​

• Demo1 procedure does not need anymore the Charset codeline, delete it …
  
  
• ScanFolder procedure revamped with UTF-8 by default until any UTF-16 BOM is detected :

Sub ScanFolder(ByVal FOLD$)
      Const C = "contact.txt"
        Dim H$, oFold As Object
    If Obj(1).FileExists(FOLD & C) Then
            R = R + 1
        With Obj(0)
           .Charset = "windows-1252"
           .Open
           .LoadFromFile FOLD & C
            H = .ReadText(2)
           .Position = 0
           .Charset = IIf(H = "þÿ" Or H = "ÿþ", "unicode", "UTF-8")
            S(R, 1) = .ReadText
           .Close
        End With
            S(R, 2) = FOLD
    End If
        For Each oFold In Obj(1).GetFolder(FOLD).SubFolders:  ScanFolder oFold.Path & "\":  Next
End Sub

 

[mintz]

According to both attachments :​

• Demo1 procedure does not need anymore the Charset codeline, delete it …
  
  
• ScanFolder procedure revamped with UTF-8 by default until any UTF-16 BOM is detected

This perfectly fixed nearly 100% of the files
The remaining few errors are with files in ANSI and UTF-16 LE (didn't notice I had these encodings before)
Is there a way to handle these two additional encodings?

 

[Marc L]

• As I have no issue with your UFT-16 LE text file from your first attachment, see post #17 …
  
  
• As you already have marked this thread as solved and checked a post as the solution,
  for any additional encoding see if files contains a BOM like your UTF-16 LE text file
  in order to proceed the same way I used for both UTF-16 formats …
  
  Or you can use a specific column to enter the encoding format for a new VBA procedure …
  
  Or via NotePad++ you can convert the files to UTF-8 format for example …

 

[mintz]

• As I have no issue with your UFT-16 LE text file from your first attachment, see post #17 …
  
  
• As you already have marked this thread as solved and checked a post as the solution,
  for any additional encoding see if files contains a BOM like your UTF-16 LE text file
  in order to proceed the same way I used for both UTF-16 formats …
  
  Or you can use a specific column to enter the encoding format for a new VBA procedure …
  
  Or via NotePad++ you can convert the files to UTF-8 format for example …

I was able to finally resolve this with simply converting the files to UTF-8BOM with batch processing script in PowerShell
The solutions both from John_w and yours worked out perfectly when working with just a single encoding for all files
Thank you very much for your help with this