用Directory.CreateDirectory即可創建文件夾：
'?建立目錄
If?Not?Directory.Exists("C:\負屃\"?&?TextBox1.Text)?Then?'檢查文件夾是否存在
Directory.CreateDirectory("C:\負屃\"?&?TextBox1.Text)?'不存在，創建文件建夾
End?If
妳的例子是因為少了壹個"\"引起的，正確的如下：
Dim?fsotest?As?New?FileSystemObject
If?fsotest.FileExists("C:\負屃\"?&?TextBox1.Text)?=?False?Then?
fsotest.CreateFolder("C:\負屃\"?&?TextBox1.Text) '這裏妳少了壹個\
End?If
MsgBox("創建成功")