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

Question

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

Answer 1

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

Answer 2

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;

Answer 3

还有需要用的就是ExtractFilePath

Answer 4

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