在连接数据库的字符串中使用本地用户名？

Question

我有以下代码：

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

现在我想＆＃34; insert＆＃34;连接到我的数据库时的计算机用户名：

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

如何将我从上面的代码中绘制的用户名插入到文件路径中，其中＆＃34; My.Username＆＃34;目前存在吗？

Answer 1

您可能不应该尝试自己创建路径，而是使用Environment.SpecialFolder Enumeration。

具体做法是：

#chmod g+rw secret_file