Public Sub DumpFile(sFileName byval as string,sContents byref as string)
	Const fsoForReading = 1 
On Error Goto ExitThisFunction	

	Dim objFSO
	Set objFSO = CreateObject ("Scripting.FileSystemObject")

	Dim objTextStream
	Set objTextStream = objFSO.OpenTextFile (sFileName, fsoForReading)

	sContents = objTextStream.ReadAll

	objTextStream.Close
	Set objTextStream = Nothing
	Set objFSO = Nothing
	
	Exit Sub
	
ExitThisFunction:
'Just exit silently.	
	
End Sub