Recursively search folders, export to excel all sub-folders. All folders containing ReadMe.txt export contents.

Question

I have a bunch of VBScripts that I created using help from this forum and other forums.  These scripts are for fixing Windows problems, installing software and setting configuration settings. Each script is in a separate folder. Some of the script folders
contain a file called ReadMe.txt that contains info about the script and what it does.  I am trying to document all my fixes so I can share them with coworkers, friends and anyone who needs help. I struggle with the "recursive" feature in VBScript.
I found the Scripting Guy's article on recursive searching and found another article from another website that works really well for listing all folders and subfolders to a CSV file.  I'm having trouble adapting the script.  After it exports the
folder list to the CSV, I need it to go back through the list and for every folder that contains the ReadMe.txt, export it's contents to the row for the specific folder that contains the file.
I've tried several modifications of this script but all my attempts cause the script to Not export the file list.  I cannot get past this problem. Until I do that I cannot even focus on the exporting the contents of the ReadMe.txt file to the CSV file.
Here is the code I have
Dim objFSO
Dim ObjOutFile
'Creating File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Create an output file
Set ObjOutFile = objFSO.CreateTextFile("OutputFiles.csv")
'Writing CSV headers
ObjOutFile.WriteLine("Type,File Name,File Path")
'Call the GetFile function to get all files
GetFiles("H:\0-Fixes")
'Close the output file
ObjOutFile.Close
WScript.Echo("Completed")
Function GetFiles(FolderName)
On Error Resume Next
Dim ObjFolder
Dim ObjSubFolders
Dim ObjSubFolder
Dim ObjFiles
Dim ObjFile
Set ObjFolder = objFSO.GetFolder(FolderName)
Set ObjFiles = ObjFolder.Files
'Write all files to output files
For Each ObjFile In ObjFiles
ObjOutFile.WriteLine("File," & ObjFile.Name & "," & ObjFile.Path)
Next
'Getting all subfolders
Set ObjSubFolders = ObjFolder.SubFolders
For Each ObjFolder In ObjSubFolders
'Writing SubFolder Name and Path
ObjOutFile.WriteLine("Folder," & ObjFolder.Name & "," & ObjFolder.Path)
'Getting all Files from subfolder
GetFiles(ObjFolder.Path)
Next
End Function
Helpful nice guy

Answer 1

Here is a fixed version of your script.  Run it and tell us what errors you are getting.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOutFile = objFSO.CreateTextFile("OutputFiles.csv")
'Writing CSV headers
objOutFile.WriteLine "Type,File Name,File Path"
GetFiles "H:\0-Fixes"
objOutFile.Close
WScript.Echo("Completed")
Function GetFiles(FolderName)
Set objFolder = objFSO.GetFolder(FolderName)
For Each ObjFile In ObjFolder.Files
objOutFile.WriteLine "File," & ObjFile.Name & "," & ObjFile.Path
Next
'Getting all subfolders
Set objSubFolders = ObjFolder.SubFolders
For Each ObjFolder In ObjSubFolders
'Writing SubFolder Name and Path
objOutFile.WriteLine "Folder," & ObjFolder.Name & "," & ObjFolder.Path
GetFiles ObjFolder.Path
Next
End Function
¯\_(ツ)_/¯