pascal 在文件夹中创建文件夹

我要用pascal在文件夹里再创建一个文件夹，用什么语句。mkdir貌似只能在当前目录创建文件夹，没法在文件夹里创建文件夹。
比如我在桌面创建一个文件夹‘123’，把pascal编译的exe也放桌面上，怎么才能在‘123’文件夹里再创建一个名叫‘456’的文件夹？

可以用绝对路径，也可以用相对路径。
你说的这种情况要用绝对路径。 另，TP 或者 FP 也许并不支持长文件名（目录名）！
uses dos;
begin
mkdir('123');
mkdir('123\456');
end.

你说的是turbo pascal吗？不同的系统这类过程和函数的名称可能不一样，因为这些不属于标准pascal的内容。 在turbo pascal里面删除文件夹的过程是： procedure rmdir(s: string); 在turbo pascal里面删除文件夹之前要先删除里面的文件，删除文件的过程是： procedure erase(var f); 删除文件的例子代码： var f: file; ch: char; begin { get file to delete from command line } assign(f, paramstr(1)); {&#36;i-} reset(f); {&#36;i+} if ioresult <> 0 then writeln(&apos;cannot find &apos;, paramstr(1)) else begin close(f); write(&apos;erase &apos;, paramstr(1), &apos;? &apos;); readln(ch); if upcase(ch) = &apos;y&apos; then erase(f); end; end.