更換檔名問題 |
答題得分者是:st33chen
|
鴻760121
一般會員 發表:8 回覆:10 積分:3 註冊:2008-06-15 發送簡訊給我 |
|
syntax
尊榮會員 發表:26 回覆:1139 積分:1258 註冊:2002-04-23 發送簡訊給我 |
|
鴻760121
一般會員 發表:8 回覆:10 積分:3 註冊:2008-06-15 發送簡訊給我 |
|
syntax
尊榮會員 發表:26 回覆:1139 積分:1258 註冊:2002-04-23 發送簡訊給我 |
|
鴻760121
一般會員 發表:8 回覆:10 積分:3 註冊:2008-06-15 發送簡訊給我 |
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
您好,
用 SysUtils 的 renamefile 試試看 假設 edit1 舊檔名, edit2 新檔名 且 舊檔名一定存在, 新檔名一定不存在 (也就是請自行加程式碼去判斷) button1 的 onclick : (我寫的是 o n c l i c k, 他會動變成 forbidden) if trim(edit2.text)<>'' then begin if RenameFile(edit1.text, edit2.text) then ShowMessage(edit1.text ' 改名為 ' edit2.text ' 成功') else begin showMessage(edit1.text ' 改名為 ' edit2.text ' 失敗 : ' IntToStr(GetLastError)); end; end; 沒試過如果 舊檔名 和 新檔名 不在同一 folder, 會不會有 move file 的效果. 啊. 對不起, 寫錯地方了, 我以為是 delphi 區... ===================引 用 鴻760121 文 章=================== 請問如何更換一個已存文件的檔名 可以用Button1 和 Edit1 更改他的檔名嗎
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲. |
syntax
尊榮會員 發表:26 回覆:1139 積分:1258 註冊:2002-04-23 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |