Использование локального имени пользователя в строке, которая соединяется с базой данных?

У меня есть следующий код:

Sub Get_Environmental_Variable()

Dim sHostName As String
Dim sUserName As String

' Get Host Name / Get Computer Name 
sHostName = Environ$("computername")

' Get Current User Name 
sUserName = Environ$("username")

End Sub

Теперь я хочу " insert " имя пользователя компьютера при подключении к моей базе данных:

Data Source=C:\Users\My.Username\Desktop\database.accdb

Как вставить имя пользователя, которое я рисую из вышеуказанного кода, в My.Username где в настоящее время существует " My.Username "?

1 ответ

Вы, вероятно, не должны пытаться создать путь самостоятельно, а вместо этого используйте перечисление Environment.SpecialFolder.

В частности:

Environment.SpecialFolder.DesktopDirectory

licensed under cc by-sa 3.0 with attribution.