請問怎樣新增一個文件夾（有此文件夾或沒有兩種情況）。

Take a look at the Delphi function ForceDirectories.

uses FileCtrl; procedure TForm1.Button1Click(Sender: TObject); begin if not DirectoryExists('c:\temp') then if not CreateDir('C:\temp') then raise Exception.Create('Cannot create c:\temp'); end;