'=========================================================
'
' DESC: Check to see if files exist in a directory 
'
' USAGE: Call checkForFiles("SOURCE DIR")
'
'
' AUTHOR: Todd Woolums (twoolums@toddwoolums.com)
' DATE : 05/29/2004
' VERSION: 1.0
'=========================================================


Dim strCurrentDate
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Call checkForFiles("\\server\share\Error")
Set objFSO = Nothing

Sub checkForFiles(strFolderPath)

    Dim oFldr
    Dim oFile
    Dim count

    Set oFldr = objFSO.GetFolder(strFolderPath)
    For Each oFile in oFldr.Files
      count = count + 1
    Next
    if count > 0 then
	Call Notify
    end if
    Set oFldr = Nothing

End Sub