在if语句中使用Environ函数

Question

我正在尝试写一个IF语句，它将使我能够根据Environ函数识别“用户名”。下面的代码允许我成功地识别用户名(以及UserDomain、UserProfile和windir)，但我不知道如何将这些信息转换为高效的if语句，这将允许我根据用户名执行操作。下面的代码在“立即”窗口中生成以下输出：

'35 : Environ("USERDOMAIN_ROAMINGPROFILE") = Marchese
'36 : Environ("USERNAME") = Andy LENTI
'37 : Environ("USERPROFILE") = C:\Users\Andrea LENTI
'38 : Environ("windir") = C:\Windows

总之，我想写一个if语句，如果用户名不是'Andy‘，我可以关闭我的数据库。有人能帮帮我吗？

Private Sub Comando146_Click()

函数VariablesEnvironnement()

Dim strEnviron As String
Dim Indx As Integer
Dim pos As Integer
Dim message As String

Indx = 1
strEnviron = Environ(Indx)
Do While strEnviron <> ""
pos = InStr(1, strEnviron, "=")
Debug.Print Indx & " : Environ(""" & Left(strEnviron, pos - 1) & """) = " & _
Right(strEnviron, Len(strEnviron) - pos)
Indx = Indx + 1
strEnviron = Environ(Indx)
Loop

MsgBox (strEnviron)

End Sub

Answer 1

比我原先想的要简单得多。

Private Sub Comando147_Click()

  If Environ("userprofile") = "C:\Users\Andy LENTI" Then

  MsgBox Environ("username")

  Else

  MsgBox Environ("userprofile")

  End If

结束子对象