we have invoice# to find in each text files and update link of the folder and file name in excel sheet.

[VenkateshRajaganesan]

Dim FSOLibrary As FileSystemObject Dim FSOFolder As Object Dim folderName As String

folderName = "D:\Renda center\EDI Files\January 2021"

Set FSOLibrary = New FileSystemObject

Sheets("Kick-outs").Range("B2").Select
i = 2
Do Until Sheet1.Range("B" & i) = ""
Sheet1.Range("B" & i).Select
inv = Trim(Sheet1.Range("B" & i))
Debug.Print inv

LoopAllSubFolders FSOLibrary.GetFolder(folderName)

i = i +1

loop
end sub

Sub LoopAllSubFolders(FSOFolder As Object)

Dim FSOSubFolder As Object Dim FSOFile As Object

For Each FSOSubFolder In FSOFolder.SubFolders LoopAllSubFolders FSOSubFolder Next

For Each FSOFile In FSOFolder.Files

Open FSOFile For Input As 1#

******* Help required to read text file and search invoice then update in excel.***********************

Debug.Print FSOFolder.Path
Debug.Print FSOFolder.Name
Debug.Print FSOFile
Next

End Sub

 

[VenkateshRajaganesan]

******* Help required to read text file and search invoice then update in excel.***********************
Please review the code and help on above comment mentioned areas.