关于判断文件夹是否存在的问题

情况如下：    
        在edit里输入一个文件名（比如说c:\windows\system32\databack\xq.back）  
        想判断文件名前的文件夹是否存在，也就是上面的databack文件夹是否存在，当然也有可能上面的路径有可能有好几个不是系统文件夹，比如说(c:\123\456等),我想判断他是否存在，若不存在则弹出对话框提示用户创建它，若存在则执行其他操作，请教如何实现？ 问题点数：80、回复次数：5Top

1 楼g961681（技术庸人(情商太低)）回复于 2005-06-01 10:26:50 得分 0

if   DirectoryExists(c:\windows\system32\databack')   then   ShowMessage('Exists');Top

2 楼jinjazz（近身剪）回复于 2005-06-01 10:27:44 得分 70

uses   FileCtrl;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      Dir:   string;  
  begin  
      Dir   :=   ExtractFileDir(Edit1.Text);  
      if   (Dir<>'')   and   not   (DirectoryExists(Dir))   then  
          if   Messagedlg('是否要创建文件夹'+Dir   +'?',mtConfirmation   ,[mbyes,mbno],0)=mryes   then  
              if   not   CreateDir(Dir)   then  
              raise   Exception.Create('Cannot   create   c:\temp');  
  end;Top

3 楼g961681（技术庸人(情商太低)）回复于 2005-06-01 10:27:44 得分 0

还有需要用的就是ExtractFilePathTop

4 楼paranoia190（190）回复于 2005-06-01 10:35:59 得分 0

DirectoryExists()Top

5 楼hellolongbin（一个人(自从扩充话题改版，再也不去灌水乐园了)）回复于 2005-06-01 10:40:51 得分 10

判断文件夹存在   DirectoryExists  
  判断文件存在       FileExists  
  创建文件夹           ForceDirectories('C:\123\')Top

相关问题

• 文件夹
• databack
• 存在
• 判断
• directoryexists
• 是否
• dir
• then

• 帖主：love603
• jinjazz
• hellolongbin

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载