怎么样改变文件夹的属性？

[sunboy2002]

我从光盘上拷贝了文件夹到本地硬盘，所以文件夹的属性是只读的，现在要将只读属性去掉（当然它里面的所有子文件夹和文件的只读属性都要去掉）。

[sunboy2002]

废话，当然是在delphi中用程序实现！

[zswangII]

procedure AttribPath(mDirName: string; mAttrib: Integer);
var
vSearchRec: TSearchRec;
vPathName: string;
K: Integer;
begin
vPathName := mDirName + '\*.*';
K := FindFirst(vPathName, faAnyFile, vSearchRec);
while K = 0 do begin
if (vSearchRec.Attr and faDirectory > 0) and
(Pos(vSearchRec.Name, '..') = 0) then
FileSetAttr(mDirName + '\' + vSearchRec.Name, faDirectory or mAttrib)
else if Pos(vSearchRec.Name, '..') = 0 then
FileSetAttr(mDirName + '\' + vSearchRec.Name, mAttrib);
K := FindNext(vSearchRec);
end;
FileSetAttr(mDirName, faDirectory or mAttrib);
FindClose(vSearchRec);
end; { AttribPath }

procedure TForm1.Button1Click(Sender: TObject);
begin
AttribPath('c:\temp', 0);
end;

嘻嘻嘻 随便灌水、随便给分 嘻嘻嘻嘻

[zswangII]

procedure AttribPath(mDirName: string; mAttrib: Integer);
var
vSearchRec: TSearchRec;
vPathName: string;
K: Integer;
begin
vPathName := mDirName + '\*.*';
K := FindFirst(vPathName, faAnyFile, vSearchRec);
while K = 0 do begin
if Pos(vSearchRec.Name, '..') = 0 then
AttribPath(mDirName + '\' + vSearchRec.Name, mAttrib);
K := FindNext(vSearchRec);
end;
FileSetAttr(mDirName, mAttrib);
FindClose(vSearchRec);
end; { AttribPath }

procedure TForm1.Button1Click(Sender: TObject);
begin
AttribPath('c:\temp', 0);
end;

//忘了做递归 ：（ 修正一下～～嘿嘿～～

[sunboy2002]

ok,搞定了！

[gaga_ghost]

右键属性，去掉只读，系统会提示你的。