利用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