如何判断一个文件夹是否存在？

Question

如题dim b as string
Private Sub Command1_Click()b = InputBox("请输入您要新建文件夹的路径", "新建文件夹", "d:\123", 1000, 1000)
If Len(b) > 0 Then
MsgBox "你输入的路径是：" & b
Else
MsgBox "您使用了默认路径d:\123"
End If
MkDir b
end它能实现单击这个按钮之后，可以在指定位置建一个文件夹，可是如果这是个已经存在的文件夹就不行了，
mkdir一遇到已经存在的文件夹就会弹错，
我想加一个IF，但是如何才能判断出这个文件是不是存在呢？

Answer 1

If Len(Dir("d:\123\")) > 0 Then
    MsgBox "存在"
Else
    MsgBox "不存在"
End If

Answer 2

方法1：
使用FSO 
工程-引用-勾选“Microsoft Scripting Runtime”-确定 
If Fso.FolderExists(Text1) = True Then
'文件夹存在
方法2：
If (GetAttr(strPath + strFile) And vbDirectory) = vbDirectory Then
'文件夹存在

Answer 3

更正方法1： 
使用FSO 
工程-引用-勾选“Microsoft Scripting Runtime”-确定 
If Fso.FolderExists(b) = True Then 
'文件夹存在 
方法2： 
If (GetAttr(b) And vbDirectory) = vbDirectory Then 
'文件夹存在

Answer 4

没那么麻烦：
if dir("d:\123",vbdirectory)<>"" then msgbox "文件夹已存在"

Answer 5

我把"d:\123"改成代码里的b了，完全可以用，不过楼上几位大大写的复杂方法我试了却没这个好用。
也许是我还比较菜， 用不了高级东东吧。另：这句的意思是如果文件夹d:\123不为空，则弹出msg
那么
vbdirectory代表什么意思呢？