My previous code had some minor glitches here is a revised and improved version, check it out
Option Explicit
Dim fso, msg, strfolder, container, i, filename
strfolder = "C:\Users\bryan\Desktop\new"
filename = "C:\Users\bryan\Desktop\new\this.txt"
msg = "file: " & "''"&filename&"''" & "...