要打开1文件夹下的2.txt文件，若在c:\a\1\下，可用 Open "C:\a\1\2.txt" For Input As #1 读入，在不确定盘符或者或者路径（如x:\a\b\c\1\）的情况下，怎样操作。

[此贴子已经被作者于2005-1-26 12:56:16编辑过]

怎么没有人帮忙呀？

你是说的用相对路径吧..
用相对路径的话.那么请用app.path来取得当前程序运行的路径
例:
    filepath=app.path &"\a\b\c\xx.txt"
这样就可以了

我是指早不知道文件具体路径，只知道其所在的文件夹名，怎样用利用 open 文件说明 [for 方式] [access存取类型] [锁定]  as [#]文件号[len=记录长度]  语句打开只知道其所在的文件夹名中的文件。

你是不是说相对路径呀
如果是说相对路径的话,可以用app.path来取得程序当然运行的位置

显示错误“找不到路径”。

不是吧.那个不可能的
我举个例,如你的程序现在在E:\test目录下,同时下面有一个test.txt这个文件
你可以这样做
filepath=app.path&"\test.txt"
这样就搞定

[此贴子已经被作者于2005-2-18 19:10:52编辑过]

例中的2个x为“不确定的”盘符及文件夹，怎样用句打开文件：



Private Sub Command1_Click()

Dim a As String, b As String, i As Integer, j As String, strTemp As String, strOut As String

Open "x:\x\a\b\st.txt" For Input As #1

Do While Not EOF(1)

Line Input #1, a$

b$ = b$ + "" + a$ + Chr$(13) + Chr$(10)

Loop

j$ = Mid$(b$, 28, 24)

Close #1

[此贴子已经被作者于2005-2-20 9:43:51编辑过]

你的问题总是说不清楚.你把东西贴出来,还要说你的目的呀.不然谁知道你的做什么呀.
你以一开始就没有说清楚

语句 filepath=app.path&"\test.txt" 的 app.path 默认路径为VB安装目录的vb98下，找不到修改默认路径的地方。