怎样判断在程序所在的路径下是否存在某个文件夹，如果没有则创建。

Question

怎样判断在程序所在的路径下是否存在某个文件夹，如果没有则创建。
以前也问过这个问题，但是运行的时候还是有一些问题，想再听听大家的高见

Answer 1

DirectoryExists,判断是否存在
ForceDirectories，创建

Answer 2

if not DirectoryExists(FilePath) then
begin
    try
         BoolRet := ForceDirectories(FilePath);
         if not BoolRet then
             Exit;
     except
         on E:Exception do
             Exit;
     end;
end;

Answer 3

procedure Tform1.FormCreate(Sender: TObject);
//一般在formcreat事件中添加
var
temp:string;
begin
  temp:=ExtractfilePath(paramstr(0));//指定当前目录下
  if not DirectoryExists(temp+'lib')then CreateDir(temp+'lib');
  //检测是否有文件夹lib，没有则创建
  .....
end;