麻煩大家,如何在Delphi中在指定的路徑中新增資料夾和copy文件呢? 1437

------
1437

您好﹗    新增資料夾範例﹕

procedure TForm1.Button1Click(Sender: TObject);
begin
  Try
    MkDir('E:\Xinsheng');
    ShowMessage('目錄建立完成');
  Except
    ShowMessage('無法建立目錄');
  end;
end;

复制檔案範例﹕

procedure TForm1.Button2Click(Sender: TObject);
begin
  CopyFile(PChar('E:\xin.txt'), PChar('E:\xin1.txt'), False);
end;
//False為覆蓋參數﹐當有同名檔案存在時﹐False參數為覆蓋處理﹐True參數為中止處理﹐即不做复制

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

謝謝版主,我試過了,完全沒有問題. 1437

------
1437

如果 C:\A 不存在的話，MkDir('C:\A\B') 會失敗 所以新增資料夾還有一個函數：ForceDirectories Ex: ForceDirectories('C:\A\B\C') 這樣會一次建立 C:\A、C:\A\B、C:\A\B\C 三個目錄 如果 ForceDirectories 回傳 false 就表示建立失敗 加油喔，喵～

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/