顺序文件为什么打不开

来源：百度知道 编辑：UC知道 时间：2024/07/08 01:20:59
Dim strFileName As String
Dim intFreeNum As Integer
strFileName = App.Path & "\新建顺序文件.txt"
'以input模式打开文件
Open strFileName For Input As #1
Close #1
'取得下一个可用的文件号
intFreeNum = FreeFile()
'以output模式打开文件
Open strFileName For Output As intFreeNum
Close #intFreeNum
'取得下一个可用的文件号
intFreeNum = FreeFile()
'以append模式打开文件
Open strFileName For Append As infreenum
Close #intFreeNum

我已经在D盘创建名字为“新建顺序文件.txt”文件
为什么调试的时候出现 “文件不存在”
新建顺序文件.txt必须存在于应用程序所在路径
那这个路径该怎么选？

新建顺序文件.txt必须存在于应用程序所在路径.
补充：
strFileName = App.Path & "\新建顺序文件.txt"
代码中的 App.Path 是相对路径
指应用程序所在路径或应用程序源代码保存的路径
假如你应用应用程序源代码保存的路径是：
D:\Program Files\Microsoft Visual Studio\VB98\yingyongProgram
yingyongProgram是目录夹名
那么
新建顺序文件.txt
也应在路径
D:\Program Files\Microsoft Visual Studio\VB98\yingyongProgram

深