Dim folderPath As String folderPath = ThisWorkbook.Path & "hoge" If Dir(filePath, vbDirectry) = "" Then MkDir folderPath End If