'* Bestaat de file: zoja geef de inhoud zoniet foutmelding
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	If objFSO.FileExists("C:\test.txt") Then
	    Set objFile = objFSO.GetFile("C:\test.txt")
'*                                 inhoud van file file?
		If objFile.Size > 0 Then
		    Set objReadFile = objFSO.OpenTextFile("C:\test.txt", 1)
		    strContents = objReadFile.ReadAll
		    Wscript.Echo strContents
		    objReadFile.Close
		Else
		    Wscript.Echo "De File is leeg."
		End If
	Else
	    Wscript.Echo "File bestaat niet."
	End If