各位大大好問題緊急我就揀重要的說我想實現按一下鍵就把暫存檔案夾下邊的所有檔複製到另外一個指定的地方如果能實現對比複製就更好了就是說已經有的就不複製沒有的就不能複製我試了很多方法都不行
..如果沒有時間幫我舉例告訴我一個思路也千萬感謝!!!

非常抱歉阿斑竹，我剛才第一次把問題發錯地方了，不知道怎麽轉就重發了次，結果兩個都被你刪了

編輯記錄

剛找到資料，案子卻又不見了，真奇怪!
把以下刪除改成copy檔案不就好了
如何刪除IE暫存檔案夾
http://delphi.ktop.com.tw/board.php?cid=30&fid=70&tid=29106

------
努力會更接近成功

1.標題後面無意義的描述我幫您刪掉
2.將您測試不行的程式碼PO上來讓前輩們幫您看看問題在哪邊


===================引 用 fanmeide 文 章===================

各位大大好問題緊急我就揀重要的說我想實現按一下鍵就把暫存檔案夾下邊的所有檔複製到另外一個指定的地方如果能實現對比複製就更好了就是說已經有的就不複製沒有的就不能複製我試了很多方法都不行
..如果沒有時間幫我舉例告訴我一個思路也千萬感謝!!!

非常抱歉阿斑竹，我剛才第一次把問題發錯地方了，不知道怎麽轉就重發了次，結果兩個都被你刪了

我更改过后的程序如下
var
lpEntryInfo: PInternetCacheEntryInfo;
hCacheDir: LongWord;
dwEntrySize: LongWord;
cachefile: string;
i: integer;
cancheqqlist: TStringList;
begin
cancheqqlist := TStringList.Create;
cancheqqlist.Clear;
dwEntrySize := 0;
FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
GetMem(lpEntryInfo, dwEntrySize);
if dwEntrySize > 0 then
lpEntryInfo^.dwStructSize := dwEntrySize;
hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
if hCacheDir <> 0 then
begin
repeat
if (lpEntryInfo^.CacheEntryType) and (NORMAL_CACHE_ENTRY) = NORMAL_CACHE_ENTRY then
cachefile := pchar(lpEntryInfo^.lpszSourceUrlName);
//取消条件
//if pos('Delphibbs.com', cachefile) > 0 then //符合条件的清除
cancheqqlist.Add(cachefile);
for i := 0 to cancheqqlist.Count - 1 do
CopyFile(pchar(cancheqqlist.Strings[i]),pchar('e:\5555\' cancheqqlist.Strings[i]),true);//改成COPY
// DeleteUrlCacheEntry(pchar(cancheqqlist.Strings[i])); //执行删除
FreeMem(lpEntryInfo, dwEntrySize);
dwEntrySize := 0;
FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);
GetMem(lpEntryInfo, dwEntrySize);
if dwEntrySize > 0 then
lpEntryInfo^.dwStructSize := dwEntrySize;
until not FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize);
end;
FreeMem(lpEntryInfo, dwEntrySize);
FindCloseUrlCache(hCacheDir);
cancheqqlist.Free;



但是实际上运行不了，你能告诉我原因么?万分感谢

lpEntryInfo^.lpszLocalFileName);
FreeMem(lpEntryInfo, dwEntrySize);
dwEntrySize := 0;
FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);
GetMem(lpEntryInfo, dwEntrySize);
if dwEntrySize > 0 then lpEntryInfo^.dwStructSize := dwEntrySize;
until not FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize);
end;
FreeMem(lpEntryInfo, dwEntrySize);
FindCloseUrlCache(hCacheDir);
// Start Copy Files
// My Test Dir is use D: you Can Change it
for i :=0 to CancheqqList.count -1 do begin
CopyFile(pchar(CancheqqList[i]),pchar('D:\5555\' ExtractfileName(CancheqqList[i])),false);//改成COPY
end;
finally
CancheqqList.free;
end;
end;

------
努力會更接近成功

运行起来非常卡,而且永远不结束是怎么回事喃~~~