VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "FileFindCallback"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

' From "VBA Developer's Handbook"
' by Ken Getz and Mike Gilbert
' Copyright 1997; Sybex, Inc. All rights reserved.

' FileFindCallback class from Chapter 12

Public Sub testFound(path As String, File As String)
    ' This gets called each time a
    ' matching file is found
    Debug.Print path & File
End Sub

Public Sub Searching(path As String)
    ' This gets called each time a new
    ' directory is searched
End Sub
