本帖最后由 xinrensheng 于 2011-06-08 14:17:46 编辑

解决方案 »

  1.   

    debug.print App.Path & "\" & "(第" & Val(Text4) - 1 & "回)" & c & ".txt"
    看一下值是否有问题~~~
      

  2.   

    试了下,当我直接用MsgBox App.Path & "\" & "(第" & Val(Text4) - 1 & "回)" & c & ".txt"时,给我显示了正确的值.
    但太奇怪的是,然后我直接在后面跟一句:
    SetAttr App.Path & "\" & "(第" & Val(Text4) - 1 & "回)" & c & ".txt", vbHidden
    ,竟然msgbox都不反应了!晕死不会跳出来msgbox的对话框了!设置属性也无效.
    这就彻底不知道怎么回事了,是不是程序太忙会跳过一些语句啊?