在DelPhi中如何在程序中判断一个目录是否存在？请大家帮个忙，加急的！

[chenjun]

我正在做一个软件，现在有一个问题，在程序启动时判断一个目录是否存在，如果不存在，则建立它。我不知怎么做了。因为我刚开始用DelPhi不久，请高手帮个忙。

[netsong]

if not DirectoryExists('c:\temp') then
if not CreateDir('C:\temp') then
raise Exception.Create('Cannot create c:\temp');

[zheng]

if not (Directoryexists(ExtractFilePath(Application.Exename)+'Envset\')) then
MkDir(ExtractFilePath(Application.Exename)+'Envset\');

[zork]

楼上的讲的没错，以后碰见这种问题，先把Sysutil单元打开，里面有许多的常用函数。

[Michaelyfj]

加上I/O编译指令就行了，如：
{$I-} //关闭I/O检查
mkdir('c:\aaaa')
{$I+} //恢复I/O检查

[Michaelyfj]

错了！忘了分号！
加上I/O编译指令就行了，如：
{$I-} //关闭I/O检查
mkdir('c:\aaaa');
{$I+} //恢复I/O检查

[Michaelyfj]

错了！忘了分号！
加上I/O编译指令就行了，如：
{$I-} //关闭I/O检查
mkdir('c:\aaaa');
{$I+} //恢复I/O检查

[Penn]

procedure TForm1.Button1Click(Sender: TObject);
var
YourPath: string;
begin
YourPath := 'c:\apps\sales\local';
if not DirectoryExists(YourPath) then
ForceDirectories(YourPath);
end;

[myxxyy]

那两个函数都给出来了，应该给分才对。

[Kingron]

DirectoryExists不是在sysutils里面，是在FileCtrl里面，呵呵，常识性错误！该打！

[chenjun]

谢谢各位的帮忙!大家都有分^_^，还有想麻烦各位，能不能告诉我如果一直关闭I/O检查会出现什么后果。

[chenjun]

可是我在使用时出现“Undeclared Directoryexists"错误提示，而sysutil我也已经引用了。

[chenjun]

可是我在使用时出现“Undeclared Directoryexists"错误提示，而sysutil我也已经引用了。

[chenjun]

另外，如果使用关闭I/O检查，建立目录，再打开I/O检查后，在打开文件时会出现I/O错误。如果一直关闭I/O检查就没有问题了。但是我不知道如果一直关闭I/O检查，以后会出现什么问题，请不吝赐教。

[Kingron]

哈哈，那你必须自己进行错误处理，否则有可能你的文件没有存盘还不知道！即使出了错误你还 以为正常呢！对IORESULT进行检查，如果它的值不为0就是出现了错误。这个好像和TP差不多。