The dumb things I do because DirectoryList doesn't have a proper filter...

gistfile1.cfm

		var	sPath=	ExpandPath( "/" );

		var	qDirectoryList=	DirectoryList(	sPath ,
											true ,
											"query" );

		var	qoqDirectoryList=	new	Query();
			qoqDirectoryList.setAttributes(	qDirectoryList=	qDirectoryList );
			qoqDirectoryList.setDBType(	"query" );
			qoqDirectoryList.setSQL( "	select	*
										from	qDirectoryList
										where	type=	'Dir'" );
			qoqDirectoryList=	qoqDirectoryList
									.execute()
									.getResult();