modutilitiess.bas

VB automaticlly grap error event

Attribute VB_Name = "modUtilitiess"
Attribute VB_Ext_KEY = "RVB_UniqueId" ,"3B357C840331"
Option Explicit
Public ErrorHandle As New clsErrorHandle
Public VBInstance As VBIDE.VBE

Public Function FileExists(strFile As String) As Boolean
    'checks to see if the file exists in the file system
    If (Dir$(strFile) <> "") And strFile <> "" Then
        FileExists = True
    Else
        FileExists = False
    End If
    
    Exit Function
End Function