Delphi判斷資料夾（目錄）是否存在，不存在就建立一個，可以一次建立多級目錄

procedure TForm1.Button1Click(Sender: TObject);
begin
if not FileExists(Edit1.Text) then
//if not DirectoryExists(Edit1.Text) then 判斷目錄是否存在
try
begin
CreateDir(Edit1.Text);
//ForceDirectories(Edit1.Text); 建立目錄
end;
finally
raise Exception.Create('Cannot Create '+Edit1.Text);
end;

end;

//三個函式引用自SysUtils單元 

FileExists(Path)檢查檔案是否存在function FileExists(const FileName: string): Boolean; 

DirectorysExists(Path)檢查目錄是否存在function DirectoryExists(const Directory: string): Boolean; 

CreateDirectory(Path)建立目錄function ForceDirectories(Dir: string): Boolean; 

ForceDirectories(Path)建立目錄 

CreateDirectory(Path)建立目錄 

forcedirectories和CreateDirectory都能建立檔案 
ForceDirectories可以建立多層目錄.  
如果你建立一個目錄為c:\mymusic\music