VB中CommonDialog1.ShowSave只读文件保存出错

[llylfz]

CommonDialog1.FileName = "参数"
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件（*.*）|*.*"
On Error GoTo errorcancell
CommonDialog1.ShowSave
On Error GoTo 0
SetAttr (CommonDialog1.FileName), vbNormal
我要保存的文件已经存在且为只读，为什么我设定文件属性的语句没起作用，保存还是出错，显示文件为只读。
请教一下怎么解决呢？先谢了

[threenewbee]

用GetSaveFileName API代替Common Dialog 这里有很多这样的代码： http://book.77169.org/ask28/how199510.htm http://blog.sina.com.cn/s/blog_53ffa4ef0100n17b.html

[of123]

设置属性后，读取属性直至属性非只读。 因为涉及到磁盘操作，会有延迟。直接执行代码就抢在前面了。