Delphi 确定文件是否存在问题

你看看你写的句子，“If fileexists（pchar（extractfilepath（'newfile\'));它后面跟着一个分号“; “你把问题弄清楚，然后往下看，首先，如果你想在一个文件夹中创建文本，你首先要确保文件夹存在，或者如何找到它的路径？ 然后你写了”。'newfile\');里面根本没有pchar，你为什么要画蛇？？ 你知道 pchar 和 string 有什么区别吗？

不懂就不要乱用，对吧 然后是下面的**。

procedure : tobject);

beginnewfile\');

if fileexists(extractfilepath('newfile\')

then :='创建成功'

else :='创建失败';

end;上面的**可以在已经存在的newfile文件夹下创建和写入（无论newfile文件夹中有多少txt，只要Windows允许）！

我不知道你用什么命令来生成文件。

如果要调用外部程序或命令，可以使用 waitSingleObject 等待进程完成，然后再做出判断。

如果写 ** 来生成它，你可以先用一个来响应消息。

只需判断生成文件B的操作是否成功即可。

Delphi 可以确定文件夹目录目录可以使用 directoryexists 函数，而创建目录可以使用 createdir 和 forcedirectories 函数。

createdir 和 forcedirectories 函数都可以创建文件夹，区别在于：

force目录创建多级目录，父目录不必存在; 另一方面，CreatedIR 只能创建最后一个一级目录，并且父目录必须存在。 例如：

如果需要创建 d：path1 subpath1，则 createdir 函数只能在创建 d 之前创建 d：path1（或者如果路径必须存在）：

path1\subpath1。forcedirectories 函数可以一次全部创建。

示例如下：

procedure : tobject);

beginIf not directoryexists（ 然后确定该目录是否存在。

trybegin

forcedirectories(;创建目录。

end;finally

raise '无法建立路径：'+;

end;end;