如題: 因為系統中有簡體中文檔名的檔案, 想用程式自動備份 但都會失敗, 不知有誰知道如何處理

如果在 DOS MODE 下去 COPY 呢    TRY TRY SEE -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

implementation uses ShellAPI;    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);    var   FOS :TSHFileOpStruct; begin   with FOS do begin     Wnd := Self.Handle;     wFunc := FO_COPY;     pFrom := 'c:\FileCopy\Dir1\*.*'; // 來源檔案或目錄     pTo := 'c:\FileCopy\Dir2';       // 目的目錄     fFlags := FOF_NoConfirmMkDir;   end;   SHFileOperation(FOS); end;    南越怪傑 發表人 -

引言: 如題: 因為系統中有簡體中文檔名的檔案, 想用程式自動備份 但都會失敗, 不知有誰知道如何處理

將整個目錄倍份燒錄到光碟也會失敗,常常稍壞光碟後,才發現目錄中有一個或兩個檔名非 BIG5 碼的中文檔名檔案(從討論區當漏的技術文章)

引言: implementation uses ShellAPI; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var FOS :TSHFileOpStruct; begin with FOS do begin Wnd := Self.Handle; wFunc := FO_COPY; pFrom := 'c:\FileCopy\Dir1\*.*'; // 來源檔案或目錄 pTo := 'c:\FileCopy\Dir2'; // 目的目錄 fFlags := FOF_NoConfirmMkDir; end; SHFileOperation(FOS); end; 南越怪傑 發表人 - >< face="Verdana, Arial, Helvetica"> NV 的做法是沒問題, 但是我並不是要複製整個目錄 我試過將檔名在檔案總管中複製下來, 並用SHFileOperation 複製檔案, 是可以成功的, 但如果利用FindFirst, FindNext 傳回的檔名確會發生找不到檔案的問題, 但用FileExists 去判斷卻又找的到, 實在是有些難纏...