Perfect.
Here is the finished product:
Option Explicit
Dim strFolderToSearch, intCounter, strTextFile, objFSO, objRootFolder, objFolder, colSubfolders, strOutput, objTextFile
strFolderToSearch = "C:\Users\mloflin\Desktop\New folder\"
strTextFile = "C:\Users\mloflin\Desktop\text.txt"...