Public Function Fso() As Object
        Static s_oFso As Object
    
        If s_oFso Is Nothing Then
            Set s_oFso = CreateObject("Scripting.FileSystemObject")
        End If
        Set Fso = s_oFso
    End Function
    
    Fso.FileExists("path")