获取相对于发布的可执行文件位置的VB 2008文件路径

Question

我有一个Visual Basic Studio 2008项目，需要部署在3个独立的服务器环境中。这些环境中的每一个都有不同的文件存储文件路径，但除此之外，程序的执行在所有环境中都完全相同

为了实现这一点，我想指示程序查看与其环境的文件存储文件路径，该文件位于与其相同的文件夹中；那么我就可以克隆同一个VB程序3次，并在存储位置发生变化时更改文本文件的内容

在发布可执行文件之前，我可以将文本文件存储在bin->debug文件夹中，并使用我遇到的任何VB相对路径方法(App.path、System.IO.getcurrentdirectory、My.Application.info.directoryPath等)来访问它，而不会有任何问题。然而，当我发布项目时，它们会发现程序的相对路径隐藏在已安装用户的appdata中。我想访问用户运行可执行文件的服务器上的文本文件

所以我的问题是：如何获取发布的可执行文件位置的文件路径我搜索了4个小时，都没有找到答案

相关代码：

dim fso as new scripting.filesystemobject
dim ts as scripting.textStream
ts = fso.opentextfile(My.Application.Info.DirectoryPath & "HostFilesrootDir.txt")
rootDir = ts.ReadAll
topDir = rootDir & 'rest of file storage location

Answer 1

如果您使用VB.Net:，也许您可以尝试一下

Application.StartupPath

例如：

Dim strContent As String = IO.File.ReadAllText(Application.StartupPath & "HostFilesrootDir.txt")