怎样建一个文件夹 (10分)

为什么这样不行：
Dir:='E:/zhdy';
if not DirectoryExists(dir) then
ForceDirectories(dir);

我试过了，可以啊。
不过最好将ForceDirectories(dir)换成CreateDir(dir)

我是这样做的，就是不能建你帮忙看一下吧
suc :=Table1.Locate('用户名', user.Text, SearchOptions);
if suc=false then
begin
Table1.open;
Table1.edit;
Table1.Append;
Table1.FieldValues['用户名'] := user.text;
Table1.FieldValues['密码'] := password.text;
Table1.Post;

if not DirectoryExists('e:/'+user.Text ) then
begin
createdir(user.Text );
// ForceDirectories(user.Text );
form2.Show;
Form1.hide;
end;
end
else

mkdir

接受答案了.