findfirst auf iomega lan hdd

[Cylence]

ok also im explorer is das laufwerk verbunden ganz normal mit netzlaufwerk verbinden...und wird immer wieder beim systemstart verbunden. Auch wenn ich im explorer das laufwerk schonmal angeklickt habe gehts nicht. in dem shelltreeview sehe ich den laufwerksbuchstaben UND auch die unterordner und wenn ich per opendialog ein file von der platte hinzufüge geht es. Es hat nichts mit dem Thread zu tun. Es ist auch nich so das ich es in manchen programmen sehe und in manchen nicht das hab ich nie gesagt es ist nur so das eben findfirst etc einfach nichts tut null

und das is mein code:

Delphi-Quellcode:

procedure TGetFiles.GetThisFiles(aDir:ShortString; aList, aExt:TStringList);
var
  fd:TWin32FindData;
  fh:THandle;
  i :Integer;
begin
  Priority := tpLower;
  FreeOnTerminate := True;
  if (aDir[Length(aDir)]<>'\') then aDir:=aDir+'\';
    for i:=0 to aExt.Count-1 do
    begin
      fh:=FindFirstFile(PChar(aDir+'*.'+aExt.Strings[i]), fd);
      if (fh<>INVALID_HANDLE_VALUE) then                   //
      repeat
        aList.Add(aDir+StrPas(fd.cFileName));
   until not FindNextFile(fh, fd);
   Windows.FindClose(fh);
  end;
  fh:=FindFirstFile(PChar(aDir+'*.*'), fd);
  if (fh<>INVALID_HANDLE_VALUE) then
   repeat
    if ((fd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)=FILE_ATTRIBUTE_DIRECTORY ) then
    if (StrPas(fd.cFileName)[1]<>'.') then
    GetThisFiles(aDir+StrPas(fd.cFileName)+'\', aList, aExt);
   until not FindNextFile(fh, fd);
  Windows.FindClose(fh);
end;

also es ist einfach nur so das findfirst nicht funzt auf dem laufwerk auf anderen netzlaufwerken geht es nur auf dem iomega lan Hdd ding eben nicht.