ディレクトリ確認（なかったら作る）

Private Function hogeDir() As Boolean

  Dim strPath As String

  strPath = "c:\hoge\"

  If System.IO.Directory.Exists(strPath) = False Then
    System.IO.Directory.CreateDirectory(strPath)
  End If

End Function

よく使いそう。