Dateien und Ordner Listen

back again

ok das mit der grösse habe ich nun hinbekommen. doch das mit dem verzeichniss will einfach nicht. so schaut es aus:

if((sr.Attr& faDirectory))
    {
      if (sr.Name[1]!='.')
      {
        //Directory=StartDirectory+(AnsiString)sr.Name+"\\";
        //GetFileList(Liste,Directory);
      pFiledata Item=new tFiledata;
      Item->SIZE=sr.Size;
      Item->Name=sr.Name+"\\";
      Item->Path= StartDirectory;
      Item->Data=sr;
      Liste->Add(Item);
      }
    }
    else
    {
      pFiledata Item=new tFiledata;
      Item->SIZE=sr.Size;
      Item->Name=sr.Name;
      Item->Path= StartDirectory;
      Item->Data=sr;
      Liste->Add(Item);
    }
    result=FindNext(sr);
  }

was mache ich den falsch?

Jansen

Nimm beim Originalcode das else raus und ändere die eine Zeile:

Item->Name= StartDirectory + sr.Name;

hmm habe genau das gemacht was du gesagt hast, klappte aber nicht. nun habe ich den code wie folgt... führt aber zu dem ergebniss das der ftp client meint das sei eine datei ohne endung. also das was ein ordner sein sollte... was nun?

while(result==0)
  {
    Application->ProcessMessages();

      pFiledata Item=new tFiledata;
      Item->Name=sr.Name;
      Item->Path= StartDirectory;
      Item->Data=sr;
      Liste->Add(Item);
    result=FindNext(sr);
  }

Jansen

Mach dir 'nen Kopf. Der Vorschlag in meinem letzten Beitrag ist getestet und funktioniert.

das folgende ist der code wie er nach deinem letzten posting sein soll.

void __fastcall GetFileList(TList*Liste,String StartDirectory)
{
  TSearchRec sr;
  String Directory;
  int result=FindFirst((StartDirectory+"*.*").c_str(), faReadOnly|faHidden|faDirectory, sr );
  while(result==0)
  {
    Application->ProcessMessages();

    if((sr.Attr& faDirectory))
    {
      if (sr.Name[1]!='.')
      {
        Directory=StartDirectory+(AnsiString)sr.Name+"\\";
        GetFileList(Liste,Directory);
      }
    }
      pFiledata Item=new tFiledata;
      Item->Name= StartDirectory + sr.Name;
      Item->Path= StartDirectory;
      Item->Data=sr;
      Liste->Add(Item);
      result=FindNext(sr);
  }

}

und?

Jansen

Und was? Ich bin doch kein Hellseher!

junix

Ich denke <Daniel> sollte sich mal etwas auf das Debuggen konzentrieren.

-junix

[ Dieser Beitrag wurde am 24.04.2003 um 13:44 Uhr von junix editiert. ]

Jansen Sie haben Post!

Jansen

Ich führe Forums-Diskussionen nicht privat weiter, es sei denn, ich hätte ausdrücklich darum gebeten.

es ging mir ja nur um die pic's...