在Win2000 (BIG5)環境下企圖更改GB碼的檔案,卻失敗... |
|
尚未結案
|
|
kensoong
初階會員   發表：31 回覆：70 積分：45 註冊：2003-05-28 發送簡訊給我 |
請教各位前輩:
我想寫程式解決在BIG5環境下大量GB碼檔名的檔案轉換問題,
撇開BIG5與GB碼的對應轉換問題,it's OK: 現在想問的問題如下:在test目錄下有一些GB碼的檔案. FindFirst(workPath 'test\*.*', faAnyFile, sr);
i:=0;
repeat
if (sr.Attr and faArchive) = sr.Attr then
begin
if FileExists(sr.Name) then
showmessage('Found it')
else
showmessage('Not found'); if RenameFile(sr.Name, TargetList.Lines.Strings[i])then
showmessage('成功')
else
showmessage('失敗');
i:=i 1;
end;
until FindNext(sr) <> 0;
FindClose(sr); GB碼的檔案FileExists ==> Found it,
但是RenameFile卻'失敗'. PS:TargetList.Lines.Strings[i] ===>即使是英文檔名也失敗.
我曾把Showmessage(sr.Name)來看有些字已變成?號,與檔案總管看到的簡體字已完全不一樣,不知是不是這個原因造成的呢? 謝謝各位前輩的幫忙...
|
|
kensoong
初階會員 發表：31 回覆：70 積分：45 註冊：2003-05-28 發送簡訊給我 |
發表時間：2004-09-12 00:50:17
IP:210.64.xxx.xxx 未訂閱
系統時間：2024-07-05 5:06:10
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |