あした

Const SeikyusyoFolder       As String = "C:\Seikyusyo\"    '請求書出力フォルダー

Dim g_対象年月度            As String
Dim g_締日                  As String

'
'   「請求書」の保存フォルダを作成する。(対象年月度_締日 毎に作成)
'
'   深い階層のフォルダーを作成する場合、
'   途中のフォルダーが存在しないと[MkDirのパスが見つかりませんエラー]になるので
'   浅い階層のフォルダーから作成する。
'
Sub Seikyusyo_Flder_Crt(g_対象年月度 As String, g_締日 As String)
                                
    Dim sDoc_Folder         As String

    Dim sFolname            As String           'full path 対象年月度締日 フォルダー
    Dim arr()               As String
    Dim i                   As Long

    On Error GoTo ErrProc
    
    '----------------------------------------------------------------------------------------

    sFolname = SeikyusyoFolder & g_対象年月度 & "_" & g_締日 & "\"

    arr = Split(sFolname, "\")
    sDoc_Folder = arr(0)  ' ドライブ

    For i = 1 To UBound(arr)
        sDoc_Folder = sDoc_Folder & "\" & arr(i)
        If Dir(sDoc_Folder, vbDirectory) = "" Then
            MkDir sDoc_Folder
        End If
    Next i

Proc_EXIT:
    DoCmd.SetWarnings 1
    Exit Sub
ErrProc:
    MsgBox Err.Number & " " & Err.Description
    Resume Proc_EXIT
End Sub