Vba MS Access创建多级子文件夹

如何在VBA for MS Access中以编程方式创建多级子文件夹？我知道MKDir只允许我创建一个级别，但我想创建两个级别。第一级文件夹基于发货发生的年份，然后子级文件夹是发货编号。这样做的目的是检查文件夹是否存在，如果不存在，则创建并打开它们

以下是我到目前为止的情况：

Private Sub Command173_Click()
 Const strParent = "S:\shipments\"
 Dim strYearEntered As String
 Dim strEntryNumber As String
 Dim strFolder As String
 Dim fso As Object
 strYearEntered = Me.YearEntered
 strEntryNumber = Me.EntryNum
 strFolder = strParent & strYearEntered & "\" & strEntryNumber
 Set fso = CreateObject("Scripting.FileSystemObject")
 If fso.FOLDEREXISTS(strFolder) = False Then
     fso.CreateFolder strFolder
 End If
 Shell "explorer.exe " & strFolder, vbNormalFocus

端接头

使用此代码会在“fso.CreateFolder strFolder”行出现错误。这个问题只发生在我将“\”放在strFolder行中时，如果没有“\”，它只会通过将YearEntered和EntryNum值填充在一起创建一个文件夹。有人能帮忙吗

---

谢谢。

首先检查第一级文件夹，如果不存在，则创建它，然后创建第二级文件夹。

Private Sub Command173_Click()
 Const strParent = "S:\shipments\"
 Dim strYearEntered As String
 Dim strEntryNumber As String
 Dim strFolder As String

 strYearEntered = Me.YearEntered
 strEntryNumber = Me.EntryNum

 strFolder = strParent & strYearEntered
 If Dir(strFolder, vbDirectory) = "" then MkDir strFolder 

 strFolder = strFolder & "\" & strEntryNumber 
 If Dir(strFolder, vbDirectory) = "" then MkDir strFolder 

 Shell "explorer.exe " & strFolder, vbNormalFocus

End Sub