为文本保存设置正确的文件路径 - vb.NET [重复]

Question

好的。我觉得这应该是编程 101，但我似乎找不到关于如何将文件路径名设置为足够动态以明确设置到安装 exe 的位置的正确答案。

基本上，这个应用程序实际上将安装在用户个人文件夹中，可能类似于本地数据，我需要获取一个由程序创建的 txt 文件，该文件要创建到与可执行文件相同的目录中。

当前路径：

Dim strFilePath As String = "D:\Development\Bobby\Prototyping\Replication Desktop Client\Replication_Desktop_Client\ClientAccessList.txt"

我想把它设置成类似

Dim strCurrentLocationOfEXE As String = HardDriveLetter & Users & CurrentUserPath & InstalledDirectory
Dim strFilePath As String = strCurrentLocationOfEXE & "\ClientAccessList.txt"`

但我一生都无法弄清楚如何让它确定，因为它不会总是安装到同一个文件夹中（即用户名和硬盘驱动器号可能会不同）。

想法？

Answer 1

您可以获取程序集运行的路径

Dim fullPath = System.Reflection.Assembly.GetExecutingAssembly().Location
Dim folderName = Path.GetDirectoryName( fullPath )
Dim strFilePath = Path.Combine(folderName, "ClientAccessList.txt")

如果您想引用此应用程序的当前用户个人文件夹，则可以通过 Environment.SpecialFolder 枚举。
此枚举独立于底层操作系统（XP、Win7、x64、x32 等） 在这种情况下，您可以使用：

Dim fullPath = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
Dim strFilePath = Path.Combine(fullPath, "your_app_reserved_folder", "ClientAccessList.txt")

在此示例中，"your_app_reserved_folder" 应该是在安装应用程序期间创建的文件夹，您可以在其中放置每个用户的数据文件。 （通常这是推荐的存储数据文件的方法，应该由用户分开）

如果您想在尝试使用之前检查文件夹是否存在，只需将获取文件名的逻辑封装在方法中

Public Function GetUserAppClientAccessList() As String

    Dim fullPath = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData);
    Dim appFolder = Path.Combine(fullPath, "your_app_reserved_folder")
    if Not Directory.Exists(appFolder) then
        Directory.Create(appFolder)
    End If
    return = Path.Combine(appFolder, "ClientAccessList.txt")
End Function

Answer 2

这将为您提供可执行文件的文件路径：

Assembly.GetEntryAssembly().Location

然后要获取文件夹路径，可以调用Path.GetDirectoryName。因此，要获取文本文件路径，您可以执行以下操作：

Dim exeFilePath As String = Assembly.GetEntryAssembly().Location
Dim exeFolderPath As String = Path.GetDirectoryName(exeFilePath)
Dim filePath As String = Path.Combine(exeFolderPath, "ClientAccessList.txt")

但要注意一点：如果没有 .NET 程序集可执行文件（例如通过 COM 将代码作为库调用），Assembly.GetEntryAssembly 可以返回 Nothing。在这种情况下，您可能希望通过调用Environment.GetCommandLineArgs()(0) 从命令行使用可执行文件路径。如果由于某种原因失败了，您可以随时求助于Directory.GetCurrentDirectory()。