急，怎样将C:\WINDOWS\Temporary Internet Files中的文件拷到另外的目录
如题，我在delphi中用copyfile想将C:\WINDOWS\Temporary Internet Files下的文件拷到自已的目录中可是不行，请各位高人指点。
另外，C:\WINDOWS\Temporary Internet Files中的文件除了上网外还有什么方式可以将外部文件拷进去吗
问题点数：0、回复次数：1Top
1 楼rouqing（*冰雨&双子座奇缘*）回复于 2003-02-02 15:24:48 得分 0
那个目录下有时还有新的文件夹建立的
拷贝目录的递归辅助函数：DoCopyDir
function DoCopyDir(sDirName:String;
sToDirName:String):Boolean;
var
hFindFile:Cardinal;
t,tfile:String;
sCurDir:String[255];
FindFileData:WIN32_FIND_DATA;
begin
//先保存当前目录
sCurDir:=GetCurrentDir;
ChDir(sDirName);
hFindFile:=FindFirstFile('*.*',FindFileData);
if hFindFile< >INVALID_HANDLE_VALUE then
begin
if not DirectoryExists(sToDirName) then
ForceDirectories(sToDirName);
repeat
tfile:=FindFileData.cFileName;
if (tfile='.') or (tfile='..') then
Continue;
if FindFileData.dwFileAttributes=
FILE_ATTRIBUTE_DIRECTORY then
begin
t:=sToDirName+'\'+tfile;
if not DirectoryExists(t) then
ForceDirectories(t);
if sDirName[Length(sDirName)]< >'\' then
DoCopyDir(sDirName+'\'+tfile,t)
else
DoCopyDir(sDirName+tfile,sToDirName+tfile);
end
else
begin
t:=sToDirName+'\'+tFile;
CopyFile(PChar(tfile),PChar(t),True);
end;
until FindNextFile(hFindFile,FindFileData)=false;
FindClose(hFindFile);
end
else
begin
ChDir(sCurDir);
result:=false;
exit;
end;
//回到原来的目录下
ChDir(sCurDir);
result:=true;
end;
Top
相关问题
- 急救，请问如何将“C:\WINDOWS\Temporary Internet Files”目录中的文件拷贝出来？！
- 如何删除WinXP中C:\Windows 目录下的文件？
- 什么api可以获得系统目录，如"C:\windows\system"?
- C++ windows console 程序如何获取本程序运行目录?
- (WinForm)C#如何得到Windows的临时文件存储目录？
- 请教：如何获取目录：C:\WINDOWS\Microsoft.NET\Framework\版本号？
- c#有没有目录树
- 各位大哥：用windows下的MS-dos 能进入c:\tc目录吗？？
- 在Windows下对文件目录结构的操作问题如：c://vc++//hello.cpp..
- 请教，C盘的WINDOWS\Installer目录里的东西删掉有无问题？
