>Hi, Naomi!
>Do You try to use Filer?
>
>
>oMyFiler = CREATEOBJECT('Filer.FileUtil')
>oMyFiler.SearchPath = "C:\0_vfp9edited\html"
>oMyFiler.FileExpression = '*c-*.htm'
>oMyFiler.Find(0)
>? oMyFiler.Files.Count
>
>It shown 5 files and it is a true.
>
>And, after, just iterate through Files collection
>FOR EACH ... IN oMyFiler.Files

Let me try it now. For some reason I'm getting weird results with adir.

Here are my results with oFiler

3309e4.jpg
3798e4.jpg
e40.jpg
E400D.jpg
E402D.jpg
E403D.jpg
E404D.jpg
E406D.jpg
e407s.jpg
E408D.jpg
E409D.jpg
e41.jpg
E411D.jpg
e412.jpg
E415D.jpg
E416D.jpg
E418D.jpg
e419.jpg
e42.jpg
E420D.jpg
E421D.jpg
e422d.jpg
E423D.jpg
E424D.jpg
e425.jpg
E426D.jpg
e427.jpg
e43.jpg
e431.jpg
e432.jpg
E444D.jpg
E445D.jpg
e45.jpg
e451.jpg
E453D.jpg
E455D.jpg
e458d.jpg
E461S.jpg
e469.jpg
e47.jpg
e470.jpg
e471.jpg
e472.jpg
e473.jpg
E474D.jpg
E475D.jpg
E476D.jpg
E477D.jpg
e478.jpg
E479D.jpg
E480D.jpg
E481D.jpg
E482D.jpg
e483.jpg
e484.jpg
E485D.jpg
e486.jpg
e487.jpg
e488.jpg
e489.jpg
E490D.jpg
E491D.jpg
e492.jpg
E493D.jpg
E494D.jpg
K-E477.JPG
K-NK1648PS.jpg
nke4.jpg
W-E401S.jpg
W-E405D.jpg
w-e407s.jpg
W-E410S.jpg
W-E413A.jpg
W-E417D.jpg
W-E421D.jpg
W-E422D.jpg
W-E425D.jpg
W-E428S.jpg
W-E430D.jpg
W-E434D.jpg
W-E437D.jpg
W-E438D.jpg
W-E442D.jpg
W-E443D.jpg
W-E447D.jpg
W-E448D.jpg
W-E450D.jpg
W-E454D.jpg
W-E455D.jpg
W-E456D.jpg
W-E458D.jpg
W-E459D.jpg
W-E460D.jpg
W-E460E.jpg
W-E460R.jpg
W-E460S.jpg
W-E463D.jpg
W-E464D.jpg
W-E465D.jpg
W-E466D.jpg
W-E467D.jpg
W-E478D.jpg
W-E498D.jpg
W-ER3953D.jpg
W-ER3963D.jpg
w-nke4.jpg

W-PT9144OX.jpg
W-PT9216D.jpg
W-TB1207D.jpg
W-TB2123D.jpg
W-TB2302D.jpg
W-TB2332D.jpg

How do you explain the NK file and the files at the bottom of the list? They don't have E4 as the name portion.