フォルダの有無を調べる

dim　Path as string

path=dir("c:\abc\def",vbdirectory) ' フォルダーの有無を調べる
if Path = "" then '　フォルダがなければ、
mkdir "c:\abc" '　mkdirはフォルダを作成する
mkdir "c:\abc\def"
end if