Установка правильного пути к файлу для сохранения txt - vb.NET

Вы можете получить путь, по которому работает сборка, с помощью

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

Это даст вам путь к исполняемому файлу:

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")

Одно предостережение: Assembly.GetEntryAssembly может вернуть Nothing, если нет исполняемого файла сборки .NET, например, если код вызывается как библиотека через COM. В этом случае вы можете использовать путь к исполняемому файлу из командной строки, вызвав Environment.GetCommandLineArgs()(0). И если это по какой-то причине не удается, вы всегда можете прибегнуть к Directory.GetCurrentDirectory().