关于FSO对象的两个问题，MoveFolder和WriteLine/Write操作时出错[代码见帖内]！！！

Question

'通用
Dim fso as new FileSystemObject
Dim stm as TextStream
Private Sub Command1_Click()
  fso.MoveFolder "D:\b", "C:\"    'b文件夹已经存在D盘跟目录，移动b目录到C盘
End Sub
提示出错：“实时错误'70'：拒绝的权限”
  Private Sub Command2_Click()
  Set txtstream = fso.OpenTextFile("C:\a.txt")
  txtstream.WriteLine "BC"       '在C盘已经存在a.txt，把“BC”两字符内容写入a.txt
  txtstream.Close
End Sub
提示出错：“实时错误'54'：文件模式错误”------------------------------------------------------------------------------好了，症状就是这样了，大家帮我看看吧~~！！

Answer 1

fso.MoveFolder "D:\b", "C:\b"Set txtstream = fso.OpenTextFile("C:\a.txt",ForAppending)