ChDir ThisWorkbook.Path
chem = ThisWorkbook.Path & "\Download\"
On Error Resume Next
Kill chem & "Notes.txt"
c01 = Dir(chem & "*.txt")
Do Until c01 = ""
c02 = c02 & vbCrLf & Left(c01, Len(c01) - 4) & vbCrLf & CreateObject("scripting.filesystemobject").opentextfile(c00 & c01).readall & vbCrLf
c01 = Dir
Loop
CreateObject("scripting.filesystemobject").createtextfile(chem & "Notes.txt").write c02
Filename = Dir(chem & "*.txt")