vba - 如果不存在，则在任何用户的桌面目录中创建一个文件夹

Question

我有一个文件，除其他外，当按下按钮时，它会打开一个特定的文件夹。我将将此文件分发给其他用户，因此代码必须知道查看正确的目录:

1. 查看该文件夹是否已存在，如果存在则打开该文件夹
2. 如果文件夹不存在，则创建该文件夹，创建后打开该文件夹

到目前为止，这是我的代码的相关部分:

If Dir("C:\Users\myUsername\Desktop\sampleFolder", vbDirectory) = "" Then
          MkDir "C:\Users\myUsername\Desktop\sampleFolder"
          retVal = Shell("explorer.exe C:\Users\myUsername\Desktop\sampleFolder", vbNormalFocus)
     Else
          retVal = Shell("explorer.exe C:\Users\myUsername\Desktop\sampleFolder", vbNormalFocus)
End If

我的主要问题是我不知道如何获取出现在文件路径“C:\Users__________\Desktop”中的用户的实际用户名

这是正确的方法吗？如果我将自己的用户名插入代码中，该代码就可以工作，但我无法找出自动获取用户名的方法，因此代码对最终用户来说很容易。

Answer 1

尝试

Public Sub EnsureDesktopFolderExists(ByVal folderName As String)
    Dim path As String
    path = Environ$("USERPROFILE") & "\Desktop\" & folderName
    If Len(Dir(path, vbDirectory)) = 0 Then MkDir path
End Sub

VBA Environ