you mean something like search for all files in the folder that have 12345 in the file name?
that's pretty easy to do using filesystemobject commands. Especially if you have static folder names in a static directory structure.
For instance if all of your image files are in the same folder as your database in a subfolder named 'photos' you could search the 'photos' subfolder
Assume for the sake of argument you have a form with a text box named SEARCHSTR
Code:
dim fs
dim fsFolder
dim fsFile
dim sFolder
set fs = createobject("scripting.filesystemobject")
sfolder = replace(currentproject.path & "\", "\\", "\") & "photos"
set fsfolder = fs.getfolder(sfolder)
for each fsfile in fsfolder.files
sFileName = fsfile.name
if instr(sfilename, SEARCHSTR) then
debug.print sfilename
'do whatever you're going to do with the file name here
endif
next fsfile
set fsfolder = nothing
set fs = nothing