★★★如何判断某个目录是否存在呢？

Question

★★★如何判断某个目录是否存在呢？
比如说：
assignfile(f,'c:\my documents\newfile.txt');
如果 c:\my documents\ 目录不存在就会产生一个错误，如何防止呢？如何创建一个目录呢？

Answer 1

SetCurrentDirectory(c:\my documents\')
設置當前目錄爲c:\my documents\，如果設置不成功的話，函數返回值為0,
如果成功則返回非0的值
所以
if SetCurrentDirectory(c:\my documents\') then
  showmessage('目錄存在')
else
  showmessage('目錄不存在');

Answer 2

FileExists();//判断文件是否存在；
DirectoryExists();//判断目录是否存在；

Answer 3

FileExists();//文件是否存在；
DirectoryExists();//目录是否存在；
ForceDirectries();//创建多级目录你上面要实现的这样即可：
if(FileExists('c:\my documents\newfile.txt'))then
    assignfile(f,'c:\my documents\newfile.txt');
else
    showmessage('文件不存在');创建目录
ForceDirectries('c:\my documents\test\test');

Answer 4

创建目录 ： ForceDirectories('F:\a\b\c\d') ;

Answer 5

:),楼上笔误创建目录 ： ForceDirectories('c:\my documents\test\test');