Question

VB怎么读取程序所在位置

例如：XX.txt所在的位置

Answer 1

LZ提问得不够详细，请问是否询问如何获取程序根目录路径？
App.path函数的作用是返回程序根目录的路径，例如程序存放在C盘的A文件夹中，App.path的值为"C:\A"，以此类推。同理，根目录下XX.txt就可以使用 App.path & "\XX.txt" 表示。需要注意的是若程序在盘符根目录，则返回的值便为"X:\“(X是盘符)，这时使用 App.path & "\XX.txt" ，结果为"X:\\XX.txt"，便会出错，需要使用IF RIGHT(APP.PATH,1)="\"来解决。

追问

是根目录、

追答

那么直接使用App.path就可以了。
Dim FilePath as Srting ,TXTPath as String
If Right(App.path,1)="\" then
FilePath = App.path '返回程序在盘符根目录时的路径
TXTPath = App.path & "XX.txt" '返回程序目录下XX.txt文件的目录
Else
FilePath = App.path & "\" '返回程序在非盘符根目录时的路径
TXTPath = App.path & "\XX.txt" '返回程序目录下XX.txt文件的目录
End If