*- File Ref: Test_Filer.Prg #DEFINE NoAttributesSet 0 #DEFINE ReadOnly 1 #DEFINE Hidden 2 #DEFINE System 4 #DEFINE Archived 32 #DEFINE DoNotSearchSubFolder 0 #DEFINE SearchSubFolder 1 CLEAR oFiler = CREATEOBJECT( "Filer.FileUtil" ) oFiler.SearchPath = "c:\" oFiler.FileExpression = "pdfmon.dll" oFiler.SubFolder = SearchSubFolder oFiler.Find(0) FOR iFile = 1 TO oFiler.Files.Count ? iFile ?? " " ?? oFiler.Files.Item[ iFile ].Name ?? " " ?? oFiler.Files.Item[ iFile ].Attr ?? " " ?? oFiler.Files.Item[ iFile ].Path NEXT iFile RETURN .T.Houston.