Excel VBA-Mkdir возвращает путь не найден

Question

Я пытаюсь создать макрос, который позволит пользователю выбрать несколько фотографий и скопировать их в определенную папку.Папка должна быть создана с использованием даты и значения из поля со списком.

Когда я пытаюсь запустить код, я получаю ошибку времени выполнения «Путь не найден» в функции MKdir, я проверил и всепути, предшествующие этой точке, верны.

Есть идеи, что приводит к этой ошибке?

Спасибо

'Add photos
Private Sub CommandButton3_Click()

Dim fileExplorer As Integer
Dim photo As String
Dim Path1 As String
Dim P As String
Dim FSO As Scripting.FileSystemObject

Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = True
fileExplorer = Application.FileDialog(msoFileDialogOpen).Show

If fileExplorer <> 0 Then

   photo = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)

Else

MsgBox ("None file has been selected")

Exit Sub

End If

dt_value = DTPicker1.Value
Syst = ComboBox1.Value

Path1 = dt_value & "-" & Syst

P = "C:\Folder" & "\" & Path1

MkDir (P)

Set FSO = New Scripting.FileSystemObject
Call FSO.CopyFile(photo, P, False)

MsgBox ("Your photos have been imported")

End Sub