VB でフォルダ作成（ない場合は作る）

ruby の FileUtils.mkdir_p, Linux の mkdir -p のVB版

Friend Module FileUtils
    Private Sub MkdirP(ByVal destDirPath As String)
        If Directory.Exists(destDirPath) Then Return
        Dim dirname = Path.GetDirectoryName(destDirPath)
        If Not Directory.Exists(dirname) Then MkdirP(dirname)
        Directory.CreateDirectory(destDirPath)
    End Sub
End Module

元ネタは、どこかの古い掲示板だったような気がする