🚀 go-pugleaf

maeder@glue.ch (Thomas Maeder [TeamB]) wrote:
Thanks Thomas, but no success under XP:

I tested it as follows:

// F:\\ENTWICK\\Roland\\1Projekte\\DDV_TEST\\incoming\\949\dd949_01_2004003.20031230_212909
        

        AnsiString sTest = ExtractFileDir(strFileName);
     
        struct stat statbuf;
        if (stat(sTest.c_str(),&statbuf)==0)
        {
          if (S_ISDIR(statbuf.st_mode))
            Memo1->Lines->Add(sTest + " is a directory");
          if (statbuf.st_mode&S_IRUSR)
            Memo1->Lines->Add("owner has read permission");
          if (statbuf.st_mode&S_IWUSR)
            Memo1->Lines->Add("owner has write permission");
          if (statbuf.st_mode&S_IXUSR)
            Memo1->Lines->Add("owner has execute permission");

          if (chmod(sTest.c_str(),statbuf.st_mode&~S_IXUSR)==0)
            Memo1->Lines->Add("permissions modified");
          else
            Memo1->Lines->Add("chmod failed");
        }
        else
          Memo1->Lines->Add("stat failed");



        if(RemoveDir(sTest))
        {
           Memo1->Lines->Add(strAct_LastFolder + " wurde gel�scht."); //success!
        }
        else
        {
           Memo1->Lines->Add("Konnte  " + strAct_LastFolder + " nicht l�schen."); //unable to delete...

           LPTSTR lpMsgBuf;
           FormatMessage(
              FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,
              NULL,
              GetLastError(),
              MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
              (LPTSTR) &lpMsgBuf,
              0,
              NULL
              );
              // Display the string.
              Application->MessageBox(  lpMsgBuf, "Directory l�schen...", MB_OK|MB_ICONINFORMATION );
              // Free the buffer.
              LocalFree( lpMsgBuf );

        }

/*
Result at Memo1:

F:\ENTWICK\Roland\1Projekte\DDV_TEST\incoming\949\dd949_01_2004003.20031230_212909 is a directory
owner has read permission
owner has write permission
owner has execute permission
permissions modified
Konnte  dd949_01_2004003.20031230_212909\ nicht l�schen. 


GetLastError tells: "Zugriff verweigert" - "Access denied."

*/


Best regards
Roland