去掉文件夹和文件的只读属性

来源：互联网发布：网络硬件防火墙编辑：程序博客网时间：2024/06/10 09:38

SetDirectory(char *DirName)//如SetDirectory("c://aaa")
{
CFileFind tempFind;
char tempFileFind[MAX_PATH];
sprintf(tempFileFind,"%s//*.*",DirName);
BOOL IsFinded=(BOOL)tempFind.FindFile(tempFileFind);
while(IsFinded)
{
  IsFinded=(BOOL)tempFind.FindNextFile();
  if(!tempFind.IsDots())
  {
   char foundFileName[MAX_PATH];
   strcpy(foundFileName,tempFind.GetFileName().GetBuffer(MAX_PATH));
   if(tempFind.IsDirectory())
   {
    char tempDir[MAX_PATH];
    sprintf(tempDir,"%s//%s",DirName,foundFileName);
    SetDirectory(tempDir);
   }
   else
   {
    char tempFileName[MAX_PATH];
    sprintf(tempFileName,"%s//%s",DirName,foundFileName);
    DWORD dWold;
                            dWold=::GetFileAttributes(tempFileName);
                            dWold&=~FILE_ATTRIBUTE_READONLY;
                            ::SetFileAttributes(tempFileName,dWold);
   }
  }
}
tempFind.Close();
}