发一段代码，请高手帮我指点两个问题，谢谢！

Question

本帖最后由 lzxbl01 于 2009-12-26 16:06:05 编辑

Answer 1

这段代码太差劲了 ..............
一点儿都不严谨。
仅针对楼主的问题说一下吧：
If GetAttr(fn) <> vbReadOnly Then 
  Kill Text1.Text 
Else 
  MsgBox ("文件只读！") 
End If
这段代码目的是判断一下 Text1 中输入的文件是否为‘只读’，如果不是则把它删除；否则消息提示“文件只读”。（逻辑错误啊！这样的代码往往是误判的，比如 vbHidden + vbReadOnly 的文件它就认为不是只读了）
Open fn For Output Shared As #1
这句的目的是：
　用 文件号1 打开 fn 这个文件用于顺序输出（不存在则创建文件，则打开并删除现有内容<注：因此前面删除文件的操作是多余的> ）；用了关键字 Shared ，表示本文件还没关闭时，别的进程也可以 读/写 这个文件。