要打开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编辑过]

怎么没有人帮忙呀？

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

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

例中的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下，找不到修改默认路径的地方。

明白了，但还是解决不了不知路径文件的打开问题（因为各人的习惯不同，安装软件的路径将各异）。