Question

VB 中open app.path&"aa.txt"for integer as#1跟open "C:/aa.txt"for integer as#1 有区别吗

RT，这两个有区别吗？为啥我加上了app.path&就报错，说缺少"as"

Answer 1

open app.path&"aa.txt"for integer as#1

改为
open app.path & "\aa.txt" for input as#1

app.path 是当前程序所在路径（未编译的程序是VB软件所在目录，已编译的程序则是EXE文件所在目录）；
aa.txt前面要加上路径分隔符\，否则就会跟前面的路径合在一起了，比如如果app.path是d:\abc，那么如果aa.txt前面没有\就会变成d:\abcaa.txt；
integer是整数的意思，应该改为input（输入）才对！

追问

打开txt是不是这两种方法都可以？

追答

用"C:/aa.txt"是绝对路径，就是说此txt文件必须固定在这个位置（c:\）才行！

而app.path & "\aa.txt"是相对路径，你把程序复制到某个文件夹中，那么aa.txt也要放在这个文件夹中！
根据自己的需要选择。

Answer 2

& 连接符跟 app.path 要隔开一个空格。另外integer是错的，我猜你是想打开文件吧?应该用input

追问

我说了是input啊，刚才是笔下雾

Answer 3

app.path & "\aa.txt" 这是正确的。
另一个例子是直接从路径读取，所以没问题

追问

为啥我加上了app.path&就报错，说缺少"as"，这可是考试机上出现的问题啊

追答

俩个问题
app.path & "\aa.txt" 注意有个/，还有空格
for integer 应该是for input 输入，或for output 输出

Answer 4

我想问的是能open for integer吗？VB里打开文件只有open for output/input/binary/append/random这几种吧

追问

我笔误打错了/input

追答

嗯，app.path只能在运行后有效，在编译阶段无效的，也就是说，在没有保存工程文件之前，这个属性没有用。因为app对象指的是应用程序对象。如果都不知道程序保存在哪里，又如何能知道应用程序的路径

追问

它自动检测语法报错（就是语句泛红）是不是可以直接无视启动程序运行，就可以啦

追答

你先在C盘下建立一个文件夹，里面建一个记事本，写一个1（数字）。然后打开VB新建个EXE程序。画一个COMMAND1.复制一下以下代码。
Option Explicit
Private Sub Command1_Click()
Open App.Path & "\1.txt" For Input As #1
Dim c As Integer
Input #1, c
Close #1
MsgBox c
End Sub
你首先不保存它，直接编译，会发现提示实时错误，找不到文件
这个时候，你点击文件保存工程，把窗体文件和工程文件保存在你刚才建立的文件夹内。再次编译，结果消息框弹出1