Delphi檔案目錄操作(轉載)
阿新 • • 發佈:2018-12-17
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
如果你的C盤不存在一個叫mymusic的資料夾
的話程式會自動建立,函式執行的結果是,
建立了兩個資料夾,mymusic和music,music為
mymusic的子資料夾.
CreateDirectory只能建立一個資料夾,如果
mymusic不存在,則反回建立music資料夾失敗!