#define FILE_ATTRIBUTE_DIRECTORY 0x00000010 LPARAMETERS cFileSpec oFiler = CREATEOBJECT( "Filer.FileUtil" ) WITH oFiler .SearchPath = JUSTPATH( cFileSpec ) .FileExpression = "*.*" .Find( 0 ) && Search, discarding last collection. FOR iFile = 1 TO .Files.Count IF .Files.Item(iFile).Attr = FILE_ATTRIBUTE_DIRECTORY ; OR .Files.Item(iFile).Name == "." ; OR .Files.Item(iFile).Name == ".." ? " DIR " ELSE ? " " ENDIF ?? .Files.Item(iFile).Name NEXT iFile ENDWITH