🚀 go-pugleaf

Got it!!
Thanks folks for responding here is what i found...
http://tinyurl.com/exm8k

Also here is what I did on my PC - based on my code I removed the 
Archive Attribute on all my files - and The system was not able to list 
any files - thank goodness I was able to replicate the problem.
Then I decided to put back the archive attribute and low and behold - I 
still was not able to list my directory (?????)

Anyway, based on the link here what I did...

....
....
    int faAnyFile2 = 0x0000FFFF;
    TSearchRec sr;
    int iAttributes = 0;
    SaveCurPath  SaveCurPath;
    iAttributes |= faAnyFile2;
    AnsiString FileSpec = Site_Path;
    FileSpec += fs;
    if (FindFirst(FileSpec, iAttributes, sr) == 0)
    {
      if (!(sr.Attr & faDirectory)
      {
        AnsiString FileName = Site_Path;
        FileName += sr.Name;
        strcpy(ftbk[count].Name, FileName.c_str());
        ....
        ....
        ...

This worked OK.
I will need to fax Borland soon to get my Beta and see if these problems 
still exists....





Colin B Maharaj wrote:
> I am using these functions to find files in my apps path to do a backup. 
> IN win2000 server (at just one customer's  site) it fails. Actually it 
> does not fail per say it just returns zero files / zero bytes. No access 
> violations nothing.....
> 
> Here is my code...
> 
> 
> //--------------------------------------------------------------------------- 
> 
> struct FilesToBackup
> {
>     char Name[MAX_PATH];
>     int  Size;
> };
> 
> //--------------------------------------------------------------------------- 
> 
> 
> // fs could be "*.dat"
> // Site_Path is where the files are being search from
> 
> void TBackupData::PopulateBkupList(FilesToBackup * ftbk, char *fs, int & 
> count)
> {
>    TSearchRec sr;
>    int iAttributes = 0;
> //   SaveCurPath  SaveCurPath;
>    iAttributes |= faArchive;
>    AnsiString FileSpec = Site_Path;
>    FileSpec += fs;
>    if (FindFirst(FileSpec, iAttributes, sr) == 0)
>    {
>      if (sr.Attr == iAttributes)
>      {
>        AnsiString FileName = Site_Path;
>        FileName += sr.Name;
>        strcpy(ftbk[count].Name, FileName.c_str());
>        ftbk[count].Size = sr.Size;
>        count++;
>        //ValidateDate(sr.Name);
>      }
>      while (FindNext(sr) == 0)
>      {
>        if (sr.Attr == iAttributes)
>        {
>          AnsiString FileName = Site_Path;
>          FileName += sr.Name;
>          strcpy(ftbk[count].Name, FileName.c_str());
>          ftbk[count].Size = sr.Size;
>          count++;
>          //ValidateDate(sr.Name);
>        }
>      }
>      FindClose(sr);
>    }
> }