VB+WINDOWS7 专业版 DIR 和 Open App.Path & "\1.txt" For Output As #1 都

If Dir("c:\windows\system32\1.text") = "" Then '判断文件是否存在
           MsgBox "Can not find excel file!" & vbCrLf & " !请找到这个文件", vbInformation + vbOKOnly, "Hint"
          'MsgBox "Can not find this file3!" & vbCrLf & "请找到这个文件", vbInformation + vbOKOnly, "Hint"
      Exit Sub

错误1：语句中的扩展名应该是txt
错误2: 原始文件保存时命名错误，将.txt去掉 (现在的文件名是1.txt.txt和2.txt.txt)

[ 本帖最后由 owenlu1981 于 2014-3-17 14:27 编辑 ]