<P>解决了，去掉你要修改的文件的只读属性（不是你看见的文件属性里的，用vfp可以看见），以下是去掉属性的代码，不过注意备份原文件</P>
<P>Private Sub SetClearArchiveBit(filespec)    ';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;　　　　去掉文件属性<br>          Dim fs, f, r<br>          <br>          ChDir "d:\t"               ‘文件所在文件夹的位置，本帖中的.Layers(0) 所指的文件<br>          Set fs = CreateObject("Scripting.FileSystemObject")<br>          Set f = fs.GetFile(fs.GetFileName(filespec))<br>          If f.Attributes And 32 Then<br>                  r = MsgBox("The   Archive   bit   is   set,   do   you   want   to   clear   it?", vbYesNo, "Set/Clear   Archive   Bit")<br>                  If r = vbYes Then<br>                          f.Attributes = f.Attributes - 32<br>                          MsgBox "Archive   bit   is   cleared."<br>                  Else<br>                          MsgBox "Archive   bit   remains   set."<br>                  End If<br>          Else<br>                  r = MsgBox("The   Archive   bit   is   not   set.   Do   you   want   to   set   it?", vbYesNo, "Set/Clear   Archive   Bit")<br>                  If r = vbYes Then<br>                          f.Attributes = f.Attributes + 32<br>                          MsgBox "Archive   bit   is   set."<br>                  Else<br>                          MsgBox "Archive   bit   remains   clear."<br>                  End If<br>          End If<br>  End Sub</P>