'========================================

Function zFile_Exists(sFileName)

	Dim oFso

	Set oFso = CreateObject("Scripting.FileSystemObject")
	
	If oFso.FileExists(sFileName) Then

		zFile_Exists = True
		
	Else
	
		zFile_Exists = False
			
	End If
	
	Set oFso = Nothing
  
End Function

'========================================