Question

vb读取当前文件夹下的文件夹下的文本文件

加入当前文件夹是：“C:\a”
读取"C:\a\user\"
查找text3的内容(如11)找到"C:\a\user\11.txt"读11&"txt"的内容到text5

Answer 1

利用VB中的“App.Path”

例如“工程1.exe”在C:\A\

那么App.Path就等于"C:\A"(注意，最后没有“\”，但是工程1.exe处于磁盘根目录下是有“\”的)
那么打开A目录下的USER文件夹里的文件就是

App.Path & "\user\"

你要打开的文件是11.txt,

代码：
open app.path & "\user\11.txt" for input as #1
do while not eof(1)
line input #1,aspect
whole = whole & aspect & vbcrlf
loop
text1.text=whole
close #1