例如: \\server\dataa b c d c:\dataa b c d e f g set 問題是怎樣del e,f,g和set這個子目錄!

標準作法是 從 c:\dataa 取一個檔案, 看在\\server\dataa 中是否存在, 在則保留, 不在砍掉, 然後再取下一個檔案, 重複相同動作 如果 b,c,d 不大 , 將 c:\dataa 全部砍掉, 再將 b, c, d 拷貝過去比較快 ********************* 如果您滿意答案,請結案 *********************

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

怎樣做呢.... 不可以具體一點嗎? 可不可以\\server\game\*.*和c:\game\*.*對比呀 然後把只存在在本地的刪除呢?

skc 你好: 其實搜尋一下本站就有你想要的東西-- Function File_DirOperations_Datail( Action : String; {COPY, DELETE, MOVE, RENAME} RenameOnCollision : Boolean; {Renames if directory exists} NoConfirmation : Boolean; {Responds "Yes to All" to any dialogs} Silent : Boolean; {No progress dialog is shown} ShowProgress : Boolean; {displays progress dialog but no file names} FromDir : String; {From directory} ToDir : String {To directory} ): Boolean; var SHFileOpStruct : TSHFileOpStruct; FromBuf, ToBuf: Array [0..255] of Char; begin Try If Not DirectoryExists(FromDir) Then Begin Result := False; Exit; End; Fillchar(SHFileOpStruct, Sizeof(SHFileOpStruct), 0 ); FillChar(FromBuf, Sizeof(FromBuf), 0 ); FillChar(ToBuf, Sizeof(ToBuf), 0 ); StrPCopy(FromBuf, FromDir); StrPCopy(ToBuf, ToDir); With SHFileOpStruct Do Begin Wnd := 0; If UpperCase(Action) = 'COPY' Then wFunc := FO_COPY; If UpperCase(Action) = 'DELETE' Then wFunc := FO_DELETE; If UpperCase(Action) = 'MOVE' Then wFunc := FO_MOVE; If UpperCase(Action) = 'RENAME' Then wFunc := FO_RENAME; pFrom := @FromBuf; pTo := @ToBuf; //fFlags := FOF_ALLOWUNDO; // 有加這一行, 就會將刪的目錄丟進資源回收桶 If RenameOnCollision Then fFlags := fFlags or FOF_RENAMEONCOLLISION; If NoConfirmation Then fFlags := fFlags or FOF_NOCONFIRMATION; If Silent Then fFlags := fFlags or FOF_SILENT; If ShowProgress Then fFlags := fFlags or FOF_SIMPLEPROGRESS; End; Result := (SHFileOperation(SHFileOpStruct) = 0); Except Result := False; End; end; 用法: File_DirOperations_Datail('DELETE', False, True, True, True, 'C:\Temp', '');

------
======================
昏睡~
不昏睡~
不由昏睡~

TSHFileOpStruct 是用什麼類型的呢........ [Error] Unit1.pas(111): Undeclared identifier: 'TSHFileOpStruct' [Error] Unit1.pas(127): Undeclared identifier: 'Wnd' [Error] Unit1.pas(128): Undeclared identifier: 'wFunc' [Error] Unit1.pas(129): Undeclared identifier: 'FO_DELETE' [Error] Unit1.pas(130): Undeclared identifier: 'FO_MOVE' [Error] Unit1.pas(131): Undeclared identifier: 'FO_RENAME' [Error] Unit1.pas(132): Undeclared identifier: 'pFrom' [Error] Unit1.pas(133): Undeclared identifier: 'pTo' [Error] Unit1.pas(135): Undeclared identifier: 'fFlags' [Error] Unit1.pas(135): Undeclared identifier: 'FOF_RENAMEONCOLLISION' [Warning] Unit1.pas(135): Combining signed and unsigned types - widened both operands [Error] Unit1.pas(136): Undeclared identifier: 'FOF_NOCONFIRMATION' [Warning] Unit1.pas(136): Combining signed and unsigned types - widened both operands [Error] Unit1.pas(137): Undeclared identifier: 'FOF_SILENT' [Error] Unit1.pas(138): Undeclared identifier: 'FOF_SIMPLEPROGRESS' [Warning] Unit1.pas(138): Combining signed and unsigned types - widened both operands [Error] Unit1.pas(140): Undeclared identifier: 'SHFileOperation'

skc 你好: 要 uses shellapi;

------
======================
昏睡~
不昏睡~
不由昏睡~

解決了... 但是發現 他是整個目錄del的....不是只del本地目錄僅存在的文件!!!

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.