Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- void AddFiles(AnsiString path/*, TDataSet *DataSet*/)
- {
- TSearchRec sr;
- int f;
- f = FindFirst(path+"\*.*", faAnyFile, sr);
- while( !f )
- {
- if(sr.Attr & faDirectory)
- {
- if(sr.Name != "." && sr.Name != "..")
- {
- path.sprintf("%s%s%s", path, "\", sr.Name);
- AddFiles(path/*, DataSet*/);
- }
- }
- else
- {
- Form1->ListBox1->Items->Add(path+ "\"+ sr.Name);
- //DataSet->Append();
- //DataSet->FieldByName("Name")->Value = sr.Name;
- /* other fields ... */
- //DataSet->Post();
- }
- f = FindNext(sr);
- }
- FindClose(sr);
- }
- path.sprintf("%s%s%s", path, "\", sr.Name);
- AddFiles(path/*, DataSet*/);
- AnsiString subpath;
- subpath.sprintf("%s%s%s", path, "\", sr.Name);
- AddFiles(subpath/*, DataSet*/);
Add Comment
Please, Sign In to add comment