項目

フォルダ作成(MkDir)

例

Option Compare Database
Option Explicit

'++++++++++++++++++++++++++++++++++++++++++++++++++
'■フォルダ作成(MkDir)
'++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub コマンド3_Click()
On Error GoTo err_handle

    Dim path As String

    path = "c:\temp\tmp"    'フォルダのパス

    MkDir path              'フォルダ作成

    Exit Sub

err_handle:
    Debug.Print Err.Description
End Sub