MkDir 变量失败

Question

我正在尝试构建一个工作簿，作为不同用户输入客户端数据的工具，并且我有一个函数可以检查路径是否存在，如果不存在，它将创建它。但是，当它到达代码中的 MkDir 命令时，它会给我一个运行时“76”错误。

我认为这可能与我错误地使用环境变量有关。有人可以看看这个并告诉我我做了什么来打破这个吗？

    Dim a As Range
    Dim StartingWS As Worksheet
    Dim ClientFolder As String
    Dim ClientCusip
    Dim ExportFile As String
    Dim PreparedDate As String
    Dim Exports As String
    Dim AccountNumber As String
    Dim LR As Long
    Dim NumOfBars As Integer
    Dim PresentStatus As Integer
    Dim PercetageCompleted As Integer
    Dim k As Long
    Dim sFolderPath As String
    Dim oFSO As Object
    Dim FindFolder As Object
    Dim UserName As String
        
  UserName = Environ("username")


        
        Set StartingWS = ThisWorkbook.Sheets("Starting Page")
    
    '************* This code creates the folder and sets the export path for the individual spreadsheets**********
    
    ClientCusip = ActiveWorkbook.Worksheets("Starting Page").Range("I11").Value
    ClientFolder = ActiveWorkbook.Worksheets("Starting Page").Range("I10").Value
    PreparedDate = Format(Now, "mm.yyyy")
    Set FindFolder = CreateObject("Scripting.FileSystemObject")
    sFolderPath = "C:\Users\" & UserName & "\Desktop\Class Actions\" & ClientFolder & " - " & PreparedDate & "\"
    If FindFolder.FolderExists(sFolderPath) Then
    Else
       MkDir sFolderPath
    End If

Answer 1

您缺少应包含驱动器号和用户文件夹的基本路径

尝试使用此行，但根据您的系统更改驱动器号和文件夹。

sFolderPath = "C:\Users\" & UserName & "\Desktop\Class Actions\" & ClientFolder & " - " & PreparedDate & "\"