#include <stdio.h>
#include <stdlib.h>
#include <io.h>
#include <iostream>
using namespace std;
 
int main (void)
{
    setlocale (LC_ALL, "RUSSIAN");
    //Размер директории
    long int sizedir = 0;
    //Вспомогательные структуры и дескрипторы
    struct _finddata_t file;
    intptr_t hFile;
 
    //Открываем текущую директорию
    if ((hFile = _findfirst ( "*.*", &file )) == -1L)
    {
        cerr << "Не удалось открыть директорию" << endl;
    }
    else
    {
        //В цикле обходим файлы директории
        do
        {
            cout << file.name << " = " << file.size << " bytes " << endl;
            sizedir += file.size;
        }
        while ( _findnext (hFile, &file) == 0 );
        //Закрываем директорию
        _findclose (hFile);
        cout << "Общий размер директории = " << sizedir << " bytes " << endl;
    }
    //Остановка перед закрытием окна
    system ("PAUSE");
    return 0;
}

 if ((hFile = _findfirst ( "*.*", &file )) == -1L)

void FolderSize(AnsiString Folder,int &Size,int &fCount,int &folCount)
  {
  // Функция записывает в параметры:
  // Size - размер папки в байтах
  //fCount - общее количество файлов в папке
  //folCount - общее количество подпапок в папке

  TSearchRec SR;
  // Проверяем, заканчивается ли путь к папке на \,
  // если да, то удаляем его
  if(Folder[Folder.Length()] == '\\')
	 Folder.SetLength(Folder.Length()-1);
  // Делаем первый поиск
  if(FindFirst(Folder+"\\*.*",faAnyFile,SR) == 0)
   do
	  {   //Если то что мы нашли не является обратными ссылками...
		 if(SR.Name != "." &&  SR.Name != "..")
		 {
			// Если то что мы нашли является папкой,
			// функция вызывает саму себя
			// и увеличивает счетчик кол-ва подпапок
			if((SR.Attr & faDirectory)!=0)
               {
				  FolderSize(Folder+"\\"+SR.Name,Size,fCount,folCount);
				  folCount++;
			   }
			else
               {
                  // Если это файл - прибавляем его размер к общему размеру
				  Size = Size + SR.Size;
				  fCount++;
               }
		 }
	  }
   while(FindNext(SR)==0);
	FindClose(SR);
  }

int a =0 , b = 0, c = 0; // Не забываем обнулить переменные.
  FolderSize("E:\\delphi",a,b,c); // Вообще здесь результат выбора папки DirectoryListBox
  ShowMessage (a); // Размер папки в байтах.
  ShowMessage (b); // Общее количество файлов в папке.
  ShowMessage (c); // Общее количество подпапок.