Все довольно просто... описывать код не буду, но думаю и сами разберетесь -
http://www.delphisources.ru/pages/fa...es_search.html
Ищите все файлы (маска - *.*) на нужном диске, заносите их в ListBox, и ListBox.Count - и будет кол-во файлов на диске...