VB+WINDOWS7 专业版 DIR 和 Open App.Path & "\1.txt" For Output As #1 都
环境 VB+WINDOWS7 专业版 都不行用相对路径不行，用绝对路径也不行？是哪里的原因？
12.zip
(2.58 KB)
我把代码上传了，请高手帮忙测试修改，谢谢
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 编辑 ]