Cacher is the code snippet organizer for pro developers

function includeFile (fSpec)
  On Error Resume Next
  dim fileSys, file, fileData
  set fileSys = createObject ("Scripting.FileSystemObject")
	  
  set file = fileSys.openTextFile (fSpec,ForReading)
  fileData = file.readAll ()
    
  file.close
  set file = nothing
  set fileSys = nothing
	
  includeFile = fileData
end function