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

Function zFile_FolderExists(sFolder)

	'This function checks to see if a folder exists

	'Usage:
		'If zFile_FolderExists(sFolder) Then
			'Xxxxx
		'End If

	Dim oFso

	Set oFso = CreateObject("Scripting.FileSystemObject")

	If oFso.FolderExists(sFolder) Then

		zFile_FolderExists = True

	Else

		zFile_FolderExists = False

	End If

	Set oFso = Nothing

End Function

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