Не работает код определения размера директории

[calypso]

Суть метода проста,в рекурсии суммируем размеры всех файлов внутри папки - это и есть размер. Но выдает 0 всегда:

// Определение размера папки
int GetFolderSize(String^ PapkaPath)
{
  DWORDLONG Result=0;
  WIN32_FIND_DATA findfiledata;
  using namespace System::Runtime::InteropServices;
  MessageBox::Show(PapkaPath+Convert::ToString(Result));
  IntPtr sysfolder=System::Runtime::InteropServices::Marshal::StringToHGlobalAuto(PapkaPath+"\\*.*");
 LPCWSTR papkaname=(LPCWSTR)sysfolder.ToPointer();
  HANDLE hFind=FindFirstFile(papkaname,&findfiledata);
  Marshal::FreeHGlobal(sysfolder);
  if (hFind!=INVALID_HANDLE_VALUE)
  {
	  do
  {
	  String^ origstr=gcnew String(findfiledata.cFileName);
	  if((origstr!=".")&&(origstr!=".."))
		  if(findfiledata.dwFileAttributes&FILE_ATTRIBUTE_DIRECTORY)
			  Result=Result+GetFolderSize(PapkaPath+"\\"+origstr);
		  else
			  Result=Result+((DWORDLONG)findfiledata.nFileSizeHigh<<32)+findfiledata.nFileSizeLow;
  }
  while (FindNextFile(hFind,&findfiledata));
  }
 else MessageBox::Show("Определить размер папки "+PapkaPath+" не удалось.Может быть,она пустая или к ней нет доступа");
  FindClose(hFind);
  CloseHandle(hFind);
 return Result;
}

[Stilet]

Отладчик не помог?

[calypso]

Не работает переход между внутренними подкаталогами. Ну например:
C:\Folder\Folder1
C:\Folder\Folder2
Заходит в Folder1,правильно определяет размер внутренних файлов, затем вместо Folder2 прыгает в C:\Folder и пишет что к ней нет доступа

[Stilet]

Х.з... Без отладки детально не разобраться.

IntPtr sysfolder=System::Runtime::InteropS ervices::Marshal::StringToHGlobalAu to(PapkaPath+"\\*.*");
LPCWSTR papkaname=(LPCWSTR)sysfolder.ToPoin ter();

А это чисто для получения указтеля на строку пути?
Может в таких плюшках залуп? Я вот сколько работал с CLR всегда старался использовать это:

void TLoader::url(System::String^ aurl){
				_url=new char[aurl->Length+1];
				{
					int i=0;
					for(i=0;i<aurl->Length;i++) _url[i]=aurl[i];
					_url[i]=0;
				}

Это из одного моего примера перевод строки в массив символов.

[calypso]

Не,маршаллинг работает - там ничего сложного нет,я не знаю почему все так боятся этих InteropServices,указателей,грязного CLR кода и т.д.
Проблема судя по всему в логике алгоритма.Упрощенный код:

если origstr!="." или origstr!=".." то:
если нашли директорию то:
Result=Result+GetFolderSize(каталог ниже уровнем+"\\"+origstr)
иначе Result=Result+размер текущего файла

[Stilet]

Тогда только отладка. На глаз не видно.

[calypso]

Ну я имею ввиду что в целом алгоритм правильный? Потому что это из Борланда был пример,для Visual C++ готового примера для определения размера каталога я не нашел. Более того,удивительно что мелкософт не сделали готовую API GetFolderSize, чтобы программисты не изголялись с рекурсиями

[waleri]

Что-то переменная Result одного типа а функция возвращает другой тип...

[calypso]

Проблема была здесь:
CloseHandle(hFind);
Эта строка вызывает исключение. Без нее всё работает,правда новый косяк - Result при больших размерах папки выдает отрицательное значение.
Уже было такое,не помню как лечилось. LONGDWORD, __int64 тоже самое

[Stilet]

Эта строка вызывает исключение.

Исключение??? О_о
WINAPIшная функция вызывает исключение???