Reply to FindFirst mit server funzoniert nicht on Fri, 17 Nov 2006 08:06:55 GMT

Werner2005 — Fri, 17 Nov 2006 08:06:55 GMT

hi hab ein seltsames Problem mit der Funktion FindFirst... Ich will damit ein Ordner Inhalt Auslese. Dies macht er auch lokal einwandfrei, aber wenn ich jetzt den Server als Pfand angebe bekomme ich nicht mehr alle Dateien angezeigt. Jetzt habe ich die gleichen Dateien jetzt auf einem Windows XP kopiert und über das Netzwerk wieder zugriffe und es geht aber warum??? Bei dem Server handelt sich es um ein Windows 2003.

Hier ist meine Script der die Daten ausliest:

void __fastcall TForm1::Ordner(AnsiString path){
		StringGrid2->RowCount = 0;
		CheckBox6->Checked = true;
		CheckBox7->Checked = true ;
	 AnsiString Text = path;
	 Text.SetLength(Text.Length()-3);
	 TSearchRec sr;
	 int iAttributes = 0;
	 iAttributes |= faReadOnly * CheckBox1->Checked;
	 iAttributes |= faHidden * CheckBox2->Checked;
	 iAttributes |= faSysFile * CheckBox3->Checked;
	 iAttributes |= faVolumeID * CheckBox4->Checked;
	 iAttributes |= faDirectory * CheckBox5->Checked;
	 iAttributes |= faArchive * CheckBox6->Checked;
	 iAttributes |= faAnyFile * CheckBox7->Checked;
	 if (FindFirst(path, iAttributes, sr) == 0)
	  {
		do
		{
		  if ((sr.Attr & iAttributes) == sr.Attr)
		  {
					if(sr.Name != ".." && sr.Name != "."){
						AnsiString Test;
						int Test2 = sr.Name.Length()-3;
						Test=sr.Name.SubString(Test2,1);
						if(Test == "."){
							 //Label2->Caption = Text+sr.Name;
							 StringGrid2->RowCount = StringGrid2->RowCount + 1;
							 StringGrid2->Cells[0][StringGrid2->RowCount-1] = Text+sr.Name;
						}
					}

		  }
		} while (FindNext(sr) == 0);

	  }
	  FindClose(sr);
  }

Mache ich etwas falsch
Oder ist das einfach nur ein Bug?