文件夹的移动复制

Question

在移动一个文件夹（内含文件）的时候，文件夹为什么只能保留八位比如：D:\temp\12345678999   移动到   D:\temp\rz\新的文件夹名称为12345678中文的文件夹只能保留8个汉字

Answer 1

为了能拷贝目录下带有子目录的情况，先定义一个辅助的拷贝函数，它是递归执行的，直到把目录下的所有文件和子目录都拷贝完。  ----   1.1拷贝目录的递归辅助函数：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;----   1.2拷贝目录的函数：CopyDir  function   CopyDir(sDirName:String;
sToDirName:string):Boolean;
begin
            if   Length(sDirName) <   =0   then
                  exit;
            //拷贝...
            Result:=DoCopyDir(sDirName,sToDirName);
end; 

Answer 2

用一个api    MoveFileEx
function MoveFileEx(
  lpExistingFileName: PChar;  // 来源文件名，指向一个以零结尾的字符串的指针。
  lpNewFileName: PChar;       // 目标文件名，指向一个以零结尾的字符串的指针。
  dwFlags: DWORD              // 移动标记，见定义
  ): BOOL; stdcall;           // 返回执行结果，成果或失败