delphi 判断是不是文件夹

当文件帆岩陆的属性字节返回为$10时，即枣梁10进制的16时表示其为目录。

procedure 态顷TForm1.Button1Click(Sender: TObject)

begin

  showmessage(inttostr(filegetattr('c:\000.txt')))

end

delphi 判断文件夹目录可以使用 DirectoryExists 函数，而创建目录可以使用 CreateDir 和 ForceDirectories 函数。

CreateDir 和 ForceDirectories 函数都可以创宏辩建文件夹，两者的区别在于：

ForceDirectories 创建多级目录，父目录不必存在；而 CreateDir 只能创建最后的一级目录，父目录必须存在。举例说明：

如果需要建立 d:\path1\subPath1，那么 CreateDir 函数只能先建立 d:\path1（或必须该路径存在），再建立d:\path1\subPath1。而用 ForceDirectories 函数可以一次性建立。

示例代码如下：

procedure TForm1.Button1Click(Sender: TObject)    

begin    

  if not DirectoryExists(Edit1.Text) then //判断目录是否存在源绝茄    

  try    

    begin    

      ForceDirectories(Edit1.Text) 雹察  //创建目录    

    end    

  finally    

    raise Exception.Create('无法建立路径： '+Edit1.Text)    

  end         

end

---