VBAによるフォルダ生成

　久々のVBAです。今回はオプションファイル等を格納するフォルダを生成するコードを書いてみました。以下のコードを実行すると、Cドライブ内に『オプション情報』というフォルダが生成されます。なお、オプション情報フォルダが既にある場合は何もしません。（IF文でフォルダ生成を回避しています）コードを貼り付けて遊んでみて下さい。

sub フォルダ生成()

　　Filename = Dir$("C:\オプション情報", vbDirectory)
　　If Filename = "" Then
　　　　MkDir "c:\オプション情報"
　　End If

end sub